(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[    371771,       7814]
NotebookOptionsPosition[    369168,       7725]
NotebookOutlinePosition[    369509,       7740]
CellTagsIndexPosition[    369466,       7737]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Online Low - Rank Nominal Label Extraction", "Section",
 CellChangeTimes->{{3.527640615129713*^9, 3.527640620614874*^9}}],

Cell[CellGroupData[{

Cell["Likelihood", "Subsection",
 CellChangeTimes->{{3.5259871234156446`*^9, 3.525987128101921*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "logprating", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"logprating", "[", 
    RowBox[{
    "rating_", ",", " ", "loga_", ",", " ", "log\[Beta]_", ",", " ", "c_", 
     ",", " ", "d_"}], "]"}], " ", ":=", " ", 
   RowBox[{"Log", "[", 
    RowBox[{
     RowBox[{"Exp", "[", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"-", 
         RowBox[{"Sum", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"Exp", "[", 
             RowBox[{"loga", "[", 
              RowBox[{"[", "n", "]"}], "]"}], "]"}], " ", 
            RowBox[{"Exp", "[", "log\[Beta]", "]"}], " ", 
            RowBox[{"c", "[", 
             RowBox[{"[", "n", "]"}], "]"}], " ", 
            RowBox[{
             RowBox[{"d", "[", 
              RowBox[{"[", "n", "]"}], "]"}], "[", 
             RowBox[{"[", "rating", "]"}], "]"}]}], ",", " ", 
           RowBox[{"{", " ", 
            RowBox[{"n", ",", " ", "1", ",", " ", 
             RowBox[{"Length", "[", "loga", "]"}]}], " ", "}"}]}], "]"}]}], 
        ")"}], "/", 
       RowBox[{"Length", "[", "loga", "]"}]}], "]"}], " ", "/", " ", 
     RowBox[{"Sum", "[", 
      RowBox[{
       RowBox[{"Exp", "[", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"-", 
           RowBox[{"Sum", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"Exp", "[", 
               RowBox[{"loga", "[", 
                RowBox[{"[", "n", "]"}], "]"}], "]"}], " ", 
              RowBox[{"Exp", "[", "log\[Beta]", "]"}], " ", 
              RowBox[{"c", "[", 
               RowBox[{"[", "n", "]"}], "]"}], 
              RowBox[{
               RowBox[{"d", "[", 
                RowBox[{"[", "n", "]"}], "]"}], "[", 
               RowBox[{"[", "k", "]"}], "]"}]}], ",", " ", 
             RowBox[{"{", " ", 
              RowBox[{"n", ",", " ", "1", ",", " ", 
               RowBox[{"Length", "[", "loga", "]"}]}], " ", "}"}]}], "]"}]}], 
          ")"}], "/", " ", 
         RowBox[{"Length", "[", "loga", "]"}]}], "]"}], ",", " ", 
       RowBox[{"{", " ", 
        RowBox[{"k", ",", " ", "1", ",", " ", 
         RowBox[{"Length", "[", 
          RowBox[{"d", "[", 
           RowBox[{"[", "1", "]"}], "]"}], "]"}]}], " ", "}"}]}], "]"}]}], 
    "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.528055089913512*^9, 3.528055119107606*^9}}],

Cell[CellGroupData[{

Cell["Test Vectors for logprating", "Subsubsection",
 CellChangeTimes->{{3.5039565482281723`*^9, 3.503956552161736*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"{", " ", 
    RowBox[{
     RowBox[{"{", " ", 
      RowBox[{
       RowBox[{"#", "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", " ", 
       RowBox[{"#", "[", 
        RowBox[{"[", "2", "]"}], "]"}], ",", " ", 
       RowBox[{"#", "[", 
        RowBox[{"[", "3", "]"}], "]"}], ",", " ", 
       RowBox[{"#", "[", 
        RowBox[{"[", "4", "]"}], "]"}], ",", " ", 
       RowBox[{"Flatten", "[", 
        RowBox[{"#", "[", 
         RowBox[{"[", "5", "]"}], "]"}], "]"}]}], "}"}], ",", 
     RowBox[{"{", " ", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"logprating", "[", 
        RowBox[{
         RowBox[{"1", " ", "+", " ", 
          RowBox[{"#", "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], ",", " ", 
         RowBox[{"#", "[", 
          RowBox[{"[", "2", "]"}], "]"}], ",", " ", 
         RowBox[{"#", "[", 
          RowBox[{"[", "3", "]"}], "]"}], ",", " ", 
         RowBox[{"#", "[", 
          RowBox[{"[", "4", "]"}], "]"}], ",", " ", 
         RowBox[{"#", "[", 
          RowBox[{"[", "5", "]"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"D", "[", 
         RowBox[{
          RowBox[{"logprating", "[", 
           RowBox[{
            RowBox[{"1", " ", "+", " ", 
             RowBox[{"#", "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], ",", " ", 
            RowBox[{"#", "[", 
             RowBox[{"[", "2", "]"}], "]"}], ",", " ", "log\[Beta]", ",", " ", 
            RowBox[{"#", "[", 
             RowBox[{"[", "4", "]"}], "]"}], ",", " ", 
            RowBox[{"#", "[", 
             RowBox[{"[", "5", "]"}], "]"}]}], "]"}], ",", " ", 
          "log\[Beta]"}], "]"}], " ", "/.", " ", 
        RowBox[{"log\[Beta]", " ", "\[Rule]", " ", 
         RowBox[{"#", "[", 
          RowBox[{"[", "3", "]"}], "]"}]}]}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"D", "[", 
         RowBox[{
          RowBox[{"logprating", "[", 
           RowBox[{
            RowBox[{"1", " ", "+", " ", 
             RowBox[{"#", "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], ",", " ", 
            RowBox[{"#", "[", 
             RowBox[{"[", "2", "]"}], "]"}], ",", " ", "log\[Beta]", ",", " ", 
            RowBox[{"#", "[", 
             RowBox[{"[", "4", "]"}], "]"}], ",", " ", 
            RowBox[{"#", "[", 
             RowBox[{"[", "5", "]"}], "]"}]}], "]"}], ",", " ", 
          RowBox[{"{", " ", 
           RowBox[{"log\[Beta]", ",", " ", "2"}], " ", "}"}]}], "]"}], " ", "/.",
         " ", 
        RowBox[{"log\[Beta]", " ", "\[Rule]", " ", 
         RowBox[{"#", "[", 
          RowBox[{"[", "3", "]"}], "]"}]}]}]}], "\[IndentingNewLine]", 
      "}"}]}], "\[IndentingNewLine]", "}"}], "&"}], " ", "/@", " ", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"{", " ", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Random", "[", 
       RowBox[{"Integer", ",", " ", "3"}], "]"}], ",", "\[IndentingNewLine]", 
      
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"Random", "[", "]"}], ",", " ", 
        RowBox[{"{", " ", 
         RowBox[{"k", ",", " ", "1", ",", " ", "5"}], " ", "}"}]}], "]"}], 
      ",", "\[IndentingNewLine]", 
      RowBox[{"Random", "[", "]"}], ",", "\[IndentingNewLine]", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"Random", "[", "]"}], ",", " ", 
        RowBox[{"{", " ", 
         RowBox[{"k", ",", " ", "1", ",", " ", "5"}], " ", "}"}]}], "]"}], 
      ",", "\[IndentingNewLine]", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"Random", "[", "]"}], ",", " ", 
          RowBox[{"{", " ", 
           RowBox[{"j", ",", " ", "1", ",", " ", "4"}], " ", "}"}]}], "]"}], 
        ",", " ", 
        RowBox[{"{", " ", 
         RowBox[{"k", ",", " ", "1", ",", " ", "5"}], " ", "}"}]}], "]"}]}], 
     " ", "}"}], ",", " ", 
    RowBox[{"{", " ", 
     RowBox[{"i", ",", " ", "1", ",", " ", "10"}], " ", "}"}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.5039556611088448`*^9, 3.503955775324189*^9}, {
   3.503956085908392*^9, 3.5039560863143063`*^9}, {3.504015162751384*^9, 
   3.5040151977573566`*^9}, {3.521226715670246*^9, 3.521226814985236*^9}, {
   3.5212268481061068`*^9, 3.521226876498602*^9}, {3.521226947701543*^9, 
   3.521226955572085*^9}, {3.521227021615281*^9, 3.52122703346951*^9}, {
   3.521227360417004*^9, 3.521227378574869*^9}, {3.5212275030834618`*^9, 
   3.521227503196887*^9}, 3.521228609988475*^9, {3.527642370676777*^9, 
   3.5276425153820667`*^9}, {3.527773105841695*^9, 3.52777310947025*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.6644579815478469`", ",", "0.05557549341657611`", ",", 
         "0.7588683043008551`", ",", "0.5548940093347399`", ",", 
         "0.21263911907889665`"}], "}"}], ",", "0.46839635696895887`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.30369080801697707`", ",", "0.8672998954836083`", ",", 
         "0.2932630440078746`", ",", "0.01223634054780936`", ",", 
         "0.4061850569679347`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.06877606555998175`", ",", "0.8926491909321732`", ",", 
         "0.6836593958104697`", ",", "0.9278094204298127`", ",", 
         "0.2066771027684242`", ",", "0.9669997757984724`", ",", 
         "0.7401267430167396`", ",", "0.7636402753139021`", ",", 
         "0.4451480111174564`", ",", "0.1911411090210851`", ",", 
         "0.31775688465012764`", ",", "0.44139710059991916`", ",", 
         "0.18738954718865022`", ",", "0.5266831274732383`", ",", 
         "0.2621813912335515`", ",", "0.6825287962990642`", ",", 
         "0.6324955378539103`", ",", "0.3140440083943416`", ",", 
         "0.7937850342645927`", ",", "0.3788379882820871`"}], "}"}]}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "1.46275177896511`"}], ",", 
       RowBox[{"-", "0.0844507066780566`"}], ",", 
       RowBox[{"-", "0.10106115567189859`"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"2", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.765195642370302`", ",", "0.02078096438646697`", ",", 
         "0.7815486937167833`", ",", "0.9726529313141524`", ",", 
         "0.6964195768103203`"}], "}"}], ",", "0.12813177345429377`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.09788929790631358`", ",", "0.04484351088433961`", ",", 
         "0.48974247404189614`", ",", "0.16113199765582137`", ",", 
         "0.357762554889574`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.2812032355704375`", ",", "0.04459446292443972`", ",", 
         "0.9699908886347363`", ",", "0.04000567023944636`", ",", 
         "0.8398061349705184`", ",", "0.8572049157357895`", ",", 
         "0.443307761161498`", ",", "0.7778242790058949`", ",", 
         "0.15727733867145413`", ",", "0.22470937788187917`", ",", 
         "0.12926375276715638`", ",", "0.9840392447413022`", ",", 
         "0.7784393503893671`", ",", "0.4595137355115771`", ",", 
         "0.10848278838068942`", ",", "0.2024905510245189`", ",", 
         "0.8057864190752146`", ",", "0.7630941587012569`", ",", 
         "0.9803510149263956`", ",", "0.10460125311820533`"}], "}"}]}], "}"}],
      ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "1.379135237408627`"}], ",", "0.006981717935179405`", ",",
        "0.0066269851699332655`"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"2", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.7609429081908751`", ",", "0.2733516846593607`", ",", 
         "0.8192190172705742`", ",", "0.7468386982286314`", ",", 
         "0.47973967262043754`"}], "}"}], ",", "0.22875722173492097`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.849228128635838`", ",", "0.706833027989185`", ",", 
         "0.6399335376499192`", ",", "0.37155230599913147`", ",", 
         "0.40592036747434`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.9290087489832901`", ",", "0.48265619897846507`", ",", 
         "0.1468429281172523`", ",", "0.2766566147071836`", ",", 
         "0.944969504241988`", ",", "0.704216848589098`", ",", 
         "0.6873291926056752`", ",", "0.16817382632649422`", ",", 
         "0.742478953217469`", ",", "0.8984304295138834`", ",", 
         "0.9242350339044184`", ",", "0.18782281140009857`", ",", 
         "0.6378777000992637`", ",", "0.13748752132300834`", ",", 
         "0.6508833492450576`", ",", "0.3686037941295243`", ",", 
         "0.8910390018706323`", ",", "0.6577478487025709`", ",", 
         "0.42212612751013673`", ",", "0.5193756654936863`"}], "}"}]}], "}"}],
      ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "1.391103411041928`"}], ",", 
       RowBox[{"-", "0.044662585959603554`"}], ",", 
       RowBox[{"-", "0.1232499618351307`"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"2", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.18420597388144735`", ",", "0.017814311052651584`", ",", 
         "0.05057382151100522`", ",", "0.1134552980193463`", ",", 
         "0.2551972248981572`"}], "}"}], ",", "0.5351581120741865`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.9037308933937529`", ",", "0.8367986833121627`", ",", 
         "0.31022772065616927`", ",", "0.8309412634850885`", ",", 
         "0.21640170078807772`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.6686248569856684`", ",", "0.5677487674387002`", ",", 
         "0.932510833971205`", ",", "0.29216666688365933`", ",", 
         "0.4808020455855699`", ",", "0.9298710673394365`", ",", 
         "0.7950233126481967`", ",", "0.6412833176386017`", ",", 
         "0.11219825145604558`", ",", "0.03883206546880415`", ",", 
         "0.13727546394562593`", ",", "0.21915719012846496`", ",", 
         "0.5928225859623593`", ",", "0.8546260915873568`", ",", 
         "0.11946115289297433`", ",", "0.16858336861745973`", ",", 
         "0.479367287943013`", ",", "0.5994288666891996`", ",", 
         "0.5843030408187878`", ",", "0.2648524752237068`"}], "}"}]}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "1.4508443489749645`"}], ",", 
       RowBox[{"-", "0.07641196620879574`"}], ",", 
       RowBox[{"-", "0.10055981983983754`"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"2", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.6425686046308503`", ",", "0.2892011460330303`", ",", 
         "0.7533617773336994`", ",", "0.0484507744356291`", ",", 
         "0.9739437476451819`"}], "}"}], ",", "0.7214523785943301`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.8208509433624943`", ",", "0.7562841075519697`", ",", 
         "0.49314170205961194`", ",", "0.7915813112548936`", ",", 
         "0.025827630714297577`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.1150007899133681`", ",", "0.3809434506035664`", ",", 
         "0.7527492457860895`", ",", "0.8885521667686717`", ",", 
         "0.8958435997849031`", ",", "0.7881208646412071`", ",", 
         "0.8981231541987327`", ",", "0.7690910138756973`", ",", 
         "0.7272602311674434`", ",", "0.30875357669819414`", ",", 
         "0.2986942875095331`", ",", "0.18478797305690947`", ",", 
         "0.4624077559437366`", ",", "0.6661849720673438`", ",", 
         "0.009493141476502775`", ",", "0.4314261957232101`", ",", 
         "0.4139569815081075`", ",", "0.692241224422162`", ",", 
         "0.2880407628821727`", ",", "0.6105752523607157`"}], "}"}]}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "1.38284552706619`"}], ",", "0.0004307177759662424`", ",", 
       RowBox[{"-", "0.005454146677900089`"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"2", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.6576728739561377`", ",", "0.19909952236255005`", ",", 
         "0.49645945162727906`", ",", "0.5847476216464182`", ",", 
         "0.5426720840427697`"}], "}"}], ",", "0.8181560717589836`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.7437102058411895`", ",", "0.6961954548777466`", ",", 
         "0.6468284842578665`", ",", "0.030035207117776557`", ",", 
         "0.8455870516424568`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.9271044410020493`", ",", "0.9195682530904231`", ",", 
         "0.7212816304195824`", ",", "0.5468927641329238`", ",", 
         "0.7423164679451397`", ",", "0.4571604971466865`", ",", 
         "0.05509665835223855`", ",", "0.537399622656421`", ",", 
         "0.31089027222192966`", ",", "0.04320351563857898`", ",", 
         "0.3628554339300765`", ",", "0.24935885977424835`", ",", 
         "0.7003150198612138`", ",", "0.3855306416824412`", ",", 
         "0.16375591156752647`", ",", "0.7528994081469693`", ",", 
         "0.11556739821479564`", ",", "0.8428585576396715`", ",", 
         "0.3455998398085428`", ",", "0.009189202305779742`"}], "}"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "1.2889472275303766`"}], ",", "0.06824503341101382`", ",",
        "0.011658037624189953`"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"2", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.4193719433370491`", ",", "0.1960300733818051`", ",", 
         "0.31556463269076623`", ",", "0.16360215066332287`", ",", 
         "0.49226750233499983`"}], "}"}], ",", "0.276461820291382`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.5942830022711838`", ",", "0.6167093865303991`", ",", 
         "0.7499510343898601`", ",", "0.8193013231446955`", ",", 
         "0.5391863439189453`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.0793097638739781`", ",", "0.4390607621679304`", ",", 
         "0.7760978075061166`", ",", "0.17633090998886874`", ",", 
         "0.8299509040997297`", ",", "0.7387457423067165`", ",", 
         "0.3905671658236753`", ",", "0.01257499842134227`", ",", 
         "0.07705149595276045`", ",", "0.623178344091921`", ",", 
         "0.5477086081840037`", ",", "0.6669751586127994`", ",", 
         "0.06786229364698071`", ",", "0.20380640075487183`", ",", 
         "0.35167853480219863`", ",", "0.3514105259220332`", ",", 
         "0.9042601429836579`", ",", "0.7115388984198721`", ",", 
         "0.07521671451081662`", ",", "0.7571275236508493`"}], "}"}]}], "}"}],
      ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "1.387449523605321`"}], ",", 
       RowBox[{"-", "0.0038719109776286435`"}], ",", 
       RowBox[{"-", "0.009220563713586748`"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"2", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.2875507564532587`", ",", "0.961587864030012`", ",", 
         "0.25591539136612107`", ",", "0.21794117973190408`", ",", 
         "0.20824099257928064`"}], "}"}], ",", "0.5225271018620815`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.47981758386000456`", ",", "0.041610269743035326`", ",", 
         "0.37829008847955087`", ",", "0.783781359555365`", ",", 
         "0.08925041803632924`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.029035271321693052`", ",", "0.3012385925267904`", ",", 
         "0.16060301546344408`", ",", "0.5415418098523256`", ",", 
         "0.3620601127088936`", ",", "0.2333762988798097`", ",", 
         "0.9567966147085722`", ",", "0.1898632750501269`", ",", 
         "0.01064958678686037`", ",", "0.32911615589615184`", ",", 
         "0.24525771628870024`", ",", "0.1146465605393103`", ",", 
         "0.253522063136011`", ",", "0.04156539944289312`", ",", 
         "0.2836698522586883`", ",", "0.8587311691731891`", ",", 
         "0.03558088340410692`", ",", "0.8333244068636124`", ",", 
         "0.7611427503966067`", ",", "0.37891358531318464`"}], "}"}]}], "}"}],
      ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "1.3882284217429688`"}], ",", 
       RowBox[{"-", "0.009210016624139481`"}], ",", 
       RowBox[{"-", "0.02324517905677172`"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"2", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.9939706136610716`", ",", "0.4550343183840616`", ",", 
         "0.9773613908412417`", ",", "0.2896631672768554`", ",", 
         "0.9649353423393785`"}], "}"}], ",", "0.15379572585727116`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.8167583753777976`", ",", "0.7481213574245299`", ",", 
         "0.602875229630485`", ",", "0.9204194269774615`", ",", 
         "0.8599617606692254`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.558258082374403`", ",", "0.5922256428436246`", ",", 
         "0.5913032710813095`", ",", "0.6147040443805252`", ",", 
         "0.44361152183509267`", ",", "0.3387035797076136`", ",", 
         "0.5497378716384165`", ",", "0.3310341921218369`", ",", 
         "0.5848803526619035`", ",", "0.3031226963035067`", ",", 
         "0.7164134647748039`", ",", "0.5698914417252301`", ",", 
         "0.20596676734871883`", ",", "0.30915208264243504`", ",", 
         "0.2613791463907424`", ",", "0.5925300508839885`", ",", 
         "0.9163036000718634`", ",", "0.34421674030305655`", ",", 
         "0.10758342053347124`", ",", "0.7757716755061907`"}], "}"}]}], "}"}],
      ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "1.2572290476854115`"}], ",", "0.11209492938946373`", ",",
        "0.0786015485996611`"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.16818224264733353`", ",", "0.7413415106725716`", ",", 
         "0.1871639935560098`", ",", "0.9158099148369654`", ",", 
         "0.6099241602729306`"}], "}"}], ",", "0.14911586782894698`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.5958607224747002`", ",", "0.3011058704564402`", ",", 
         "0.1663126384378379`", ",", "0.8104122881213334`", ",", 
         "0.04612285083628373`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.9700716783346033`", ",", "0.5814322857759344`", ",", 
         "0.5072895918178267`", ",", "0.32970938606147976`", ",", 
         "0.4001802366093732`", ",", "0.3754655184272156`", ",", 
         "0.19813750917539164`", ",", "0.06833023967073733`", ",", 
         "0.8076501857253847`", ",", "0.4591619183553522`", ",", 
         "0.8539207688723351`", ",", "0.9607468191372661`", ",", 
         "0.03187851021919398`", ",", "0.29097967570801864`", ",", 
         "0.11257925819976355`", ",", "0.7735828255812564`", ",", 
         "0.1160685953822286`", ",", "0.681055515435088`", ",", 
         "0.9634633903708166`", ",", "0.17772210310655612`"}], "}"}]}], "}"}],
      ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "1.3890404644597643`"}], ",", 
       RowBox[{"-", "0.007010225021996344`"}], ",", 
       RowBox[{"-", "0.015320860268521667`"}]}], "}"}]}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.5276424630949717`*^9, 3.527642518406855*^9, 
  3.527773109942569*^9, 3.52805512524522*^9}]
}, Open  ]]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["E - Step", "Subsection",
 CellChangeTimes->{{3.525095319326301*^9, 3.525095320059371*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "logpratingmega", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"logpratingmega", "[", 
    RowBox[{
    "y_", ",", " ", "rating_", ",", " ", "loga_", ",", " ", "log\[Beta]_", 
     ",", " ", "c_", ",", " ", "d_"}], "]"}], " ", ":=", " ", 
   "\[IndentingNewLine]", 
   RowBox[{"Log", "[", 
    RowBox[{
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"y", " ", "\[Equal]", " ", "rating"}], ",", " ", "1", ",", " ", 
       RowBox[{"Exp", "[", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           RowBox[{"Sum", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"Exp", "[", 
               RowBox[{"loga", "[", 
                RowBox[{"[", "n", "]"}], "]"}], "]"}], " ", 
              RowBox[{"Exp", "[", "log\[Beta]", "]"}], " ", 
              RowBox[{"c", "[", 
               RowBox[{"[", "n", "]"}], "]"}], " ", 
              RowBox[{
               RowBox[{"d", "[", 
                RowBox[{"[", "n", "]"}], "]"}], "[", 
               RowBox[{"[", "rating", "]"}], "]"}]}], ",", " ", 
             RowBox[{"{", " ", 
              RowBox[{"n", ",", " ", "1", ",", " ", 
               RowBox[{"Length", "[", "loga", "]"}]}], " ", "}"}]}], "]"}]}], 
          " ", "/", " ", 
          RowBox[{"Length", "[", "loga", "]"}]}], " ", ")"}], "]"}]}], "]"}], 
     " ", "/", " ", 
     RowBox[{"Sum", "[", 
      RowBox[{
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{"y", " ", "\[Equal]", " ", "k"}], ",", " ", "1", ",", " ", 
         RowBox[{"Exp", "[", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", 
             RowBox[{"Sum", "[", 
              RowBox[{
               RowBox[{
                RowBox[{"Exp", "[", 
                 RowBox[{"loga", "[", 
                  RowBox[{"[", "n", "]"}], "]"}], "]"}], " ", 
                RowBox[{"Exp", "[", "log\[Beta]", "]"}], " ", 
                RowBox[{"c", "[", 
                 RowBox[{"[", "n", "]"}], "]"}], 
                RowBox[{
                 RowBox[{"d", "[", 
                  RowBox[{"[", "n", "]"}], "]"}], "[", 
                 RowBox[{"[", "k", "]"}], "]"}]}], ",", " ", 
               RowBox[{"{", " ", 
                RowBox[{"n", ",", " ", "1", ",", " ", 
                 RowBox[{"Length", "[", "loga", "]"}]}], " ", "}"}]}], 
              "]"}]}], " ", "/", " ", 
            RowBox[{"Length", "[", "loga", "]"}]}], ")"}], "]"}]}], "]"}], 
       ",", " ", 
       RowBox[{"{", " ", 
        RowBox[{"k", ",", " ", "1", ",", " ", 
         RowBox[{"Length", "[", 
          RowBox[{"d", "[", 
           RowBox[{"[", "1", "]"}], "]"}], "]"}]}], " ", "}"}]}], "]"}]}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", "clampprior", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"clampprior", "[", 
    RowBox[{"c_", ",", " ", "logpriorz_"}], "]"}], " ", ":=", " ", 
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{"c", " ", "<", " ", "0"}], ",", " ", "logpriorz", ",", " ", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{"i", " ", "\[Equal]", " ", 
          RowBox[{"c", " ", "+", " ", "1"}]}], ",", " ", 
         RowBox[{"Log", "[", "0.99999", "]"}], ",", " ", 
         RowBox[{
          RowBox[{"Log", "[", "0.00001", "]"}], " ", "-", " ", 
          RowBox[{"Log", "[", 
           RowBox[{
            RowBox[{"Length", "[", "logpriorz", "]"}], " ", "-", " ", "1"}], 
           "]"}]}]}], "]"}], ",", " ", 
       RowBox[{"{", " ", 
        RowBox[{"i", ",", " ", "1", ",", " ", 
         RowBox[{"Length", "[", "logpriorz", "]"}]}], " ", "}"}]}], "]"}]}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", "estep", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"estep", "[", 
    RowBox[{
    "loga_", ",", "log\[Beta]_", ",", " ", "c_", ",", " ", "d_", ",", " ", 
     "logpriorz_", ",", " ", "clamp_", ",", " ", "r_"}], "]"}], " ", ":=", 
   " ", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", " ", 
      RowBox[{
       RowBox[{"logz", " ", "=", " ", 
        RowBox[{"clampprior", "[", 
         RowBox[{"clamp", ",", " ", "logpriorz"}], "]"}]}], ",", 
       "\[IndentingNewLine]", "              ", "x", ",", " ", "y", ",", 
       "\[IndentingNewLine]", "              ", "worker", ",", 
       "\[IndentingNewLine]", "              ", "rating"}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"For", "[", 
       RowBox[{
        RowBox[{"x", " ", "=", " ", "1"}], ",", " ", 
        RowBox[{"x", " ", "\[LessEqual]", " ", 
         RowBox[{"Length", "[", "r", "]"}]}], ",", " ", 
        RowBox[{"++", "x"}], ",", " ", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"worker", " ", "=", " ", 
          RowBox[{
           RowBox[{"r", "[", 
            RowBox[{"[", "x", "]"}], "]"}], "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
         RowBox[{"rating", " ", "=", " ", 
          RowBox[{
           RowBox[{"r", "[", 
            RowBox[{"[", "x", "]"}], "]"}], "[", 
           RowBox[{"[", "2", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
         RowBox[{"For", "[", 
          RowBox[{
           RowBox[{"y", " ", "=", " ", "1"}], ",", " ", 
           RowBox[{"y", " ", "\[LessEqual]", " ", 
            RowBox[{"Length", "[", "logpriorz", "]"}]}], ",", " ", 
           RowBox[{"++", "y"}], ",", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"logz", "[", 
             RowBox[{"[", "y", "]"}], "]"}], " ", "+=", " ", 
            RowBox[{"logpratingmega", "[", 
             RowBox[{"y", ",", " ", "rating", ",", " ", 
              RowBox[{"loga", "[", 
               RowBox[{"[", "worker", "]"}], "]"}], ",", " ", "log\[Beta]", 
              ",", " ", 
              RowBox[{"1", " ", "+", " ", 
               RowBox[{"c", "[", 
                RowBox[{"[", "y", "]"}], "]"}]}], ",", " ", 
              RowBox[{"1", " ", "+", " ", "d"}]}], "]"}]}]}], 
          "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}],
       ";", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"Exp", "[", 
        RowBox[{"logz", " ", "-", " ", 
         RowBox[{"Max", "[", "logz", "]"}]}], "]"}], " ", "/", " ", 
       RowBox[{"(", 
        RowBox[{"Plus", " ", "@@", " ", 
         RowBox[{"Exp", "[", 
          RowBox[{"logz", " ", "-", " ", 
           RowBox[{"Max", "[", "logz", "]"}]}], "]"}]}], ")"}]}]}]}], 
    "\[IndentingNewLine]", "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.527780446417139*^9, 3.5277804551417913`*^9}, {
   3.5277805261027317`*^9, 3.527780591515929*^9}, 3.5277806846169577`*^9, {
   3.527782241137629*^9, 3.527782245988894*^9}, {3.527782282924906*^9, 
   3.5277822854910507`*^9}, {3.527782388432701*^9, 3.527782389563694*^9}, {
   3.5278129903842154`*^9, 3.527812993575583*^9}, {3.527878809549479*^9, 
   3.527878810531323*^9}, {3.527879161198098*^9, 3.52787917692423*^9}, {
   3.528055177177845*^9, 3.528055220440015*^9}, {3.5280565252756567`*^9, 
   3.5280565282385187`*^9}}],

Cell[CellGroupData[{

Cell["Test Vectors for estep", "Subsubsection",
 CellChangeTimes->{{3.50401932583255*^9, 3.504019328703233*^9}, {
  3.521999823677437*^9, 3.521999824059442*^9}, {3.5220689869901867`*^9, 
  3.522068987107493*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "nworkers", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nworkers", " ", "=", " ", "4"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", "nlabels", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nlabels", " ", "=", " ", "5"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", "nratings", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nratings", " ", "=", " ", "8"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", "rank", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"rank", " ", "=", " ", "6"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"{", " ", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"ListQ", "[", "#", "]"}], " ", "&&", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"!", " ", 
             RowBox[{"ListQ", "[", 
              RowBox[{"#", "[", 
               RowBox[{"[", "1", "]"}], "]"}], "]"}]}], " ", "||", " ", 
            RowBox[{"!", " ", 
             RowBox[{"IntegerQ", "[", 
              RowBox[{
               RowBox[{"#", "[", 
                RowBox[{"[", "1", "]"}], "]"}], "[", 
               RowBox[{"[", "1", "]"}], "]"}], "]"}]}]}], ")"}]}], ",", " ", 
         RowBox[{"Flatten", "[", "#", "]"}], ",", " ", "#"}], "]"}], "&"}], 
      " ", "/@", " ", "#"}], ",", " ", "\[IndentingNewLine]", 
     RowBox[{"Flatten", "[", "\[IndentingNewLine]", 
      RowBox[{"estep", "[", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"#", "[", 
         RowBox[{"[", "1", "]"}], "]"}], ",", 
        RowBox[{"(*", " ", "loga", " ", "*)"}], "\[IndentingNewLine]", 
        RowBox[{"#", "[", 
         RowBox[{"[", "2", "]"}], "]"}], ",", 
        RowBox[{"(*", " ", "log\[Beta]", " ", "*)"}], "\[IndentingNewLine]", 
        RowBox[{"Transpose", "[", 
         RowBox[{"#", "[", 
          RowBox[{"[", "3", "]"}], "]"}], "]"}], ",", 
        RowBox[{"(*", " ", "c", " ", "*)"}], "\[IndentingNewLine]", 
        RowBox[{"#", "[", 
         RowBox[{"[", "4", "]"}], "]"}], ",", " ", 
        RowBox[{"(*", " ", "d", " ", "*)"}], "\[IndentingNewLine]", 
        RowBox[{"#", "[", 
         RowBox[{"[", "5", "]"}], "]"}], ",", " ", 
        RowBox[{"(*", " ", "priorz", " ", "*)"}], "\[IndentingNewLine]", 
        RowBox[{"#", "[", 
         RowBox[{"[", "6", "]"}], "]"}], ",", " ", 
        RowBox[{"(*", " ", "clamp", " ", "*)"}], "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{
          RowBox[{"{", " ", 
           RowBox[{
            RowBox[{"1", " ", "+", " ", 
             RowBox[{"#", "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], ",", "  ", 
            RowBox[{"1", " ", "+", " ", 
             RowBox[{"#", "[", 
              RowBox[{"[", "2", "]"}], "]"}]}]}], " ", "}"}], "&"}], " ", "/@",
          " ", 
         RowBox[{"#", "[", 
          RowBox[{"[", "7", "]"}], "]"}]}]}], "]"}], " ", 
      RowBox[{"(*", " ", "r", " ", "*)"}], "\[IndentingNewLine]", "]"}]}], 
    "}"}], " ", "&"}], " ", "/@", "\[IndentingNewLine]", 
  RowBox[{"Table", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"Random", "[", "]"}], ",", " ", 
          RowBox[{"{", " ", 
           RowBox[{"i", ",", " ", "1", ",", " ", "rank"}], " ", "}"}]}], 
         "]"}], ",", " ", 
        RowBox[{"{", " ", 
         RowBox[{"j", ",", " ", "1", ",", " ", "nworkers"}], " ", "}"}]}], 
       "]"}], ",", " ", 
      RowBox[{"(*", " ", "loga", " ", "*)"}], "\[IndentingNewLine]", 
      RowBox[{"Random", "[", "]"}], ",", " ", 
      RowBox[{"(*", " ", "log\[Beta]", " ", "*)"}], "\[IndentingNewLine]", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"Random", "[", "]"}], ",", " ", 
          RowBox[{"{", " ", 
           RowBox[{"i", ",", " ", "1", ",", " ", "nlabels"}], " ", "}"}]}], 
         "]"}], ",", " ", 
        RowBox[{"{", " ", 
         RowBox[{"j", ",", " ", "1", ",", " ", "rank"}], " ", "}"}]}], "]"}], 
      ",", " ", 
      RowBox[{"(*", " ", "c", " ", "*)"}], "\[IndentingNewLine]", 
      RowBox[{"Table", " ", "[", 
       RowBox[{
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"Random", "[", "]"}], ",", " ", 
          RowBox[{"{", " ", 
           RowBox[{"i", ",", " ", "1", ",", " ", "nlabels"}], " ", "}"}]}], 
         "]"}], ",", " ", 
        RowBox[{"{", " ", 
         RowBox[{"j", ",", " ", "1", ",", " ", "rank"}], " ", "}"}]}], "]"}], 
      ",", " ", 
      RowBox[{"(*", " ", "d", " ", "*)"}], "\[IndentingNewLine]", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"Random", "[", "]"}], ",", " ", 
        RowBox[{"{", " ", 
         RowBox[{"i", ",", " ", "1", ",", " ", "nlabels"}], " ", "}"}]}], 
       "]"}], ",", " ", 
      RowBox[{"(*", " ", "priorz", " ", "*)"}], "\[IndentingNewLine]", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"Random", "[", "]"}], " ", "<", " ", "0.5"}], ",", " ", 
        RowBox[{"-", "1"}], ",", " ", 
        RowBox[{"Random", "[", 
         RowBox[{"Integer", ",", " ", 
          RowBox[{"nlabels", " ", "-", " ", "1"}]}], "]"}]}], "]"}], ",", 
      RowBox[{"(*", " ", "clamp", " ", "*)"}], "\[IndentingNewLine]", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Random", "[", 
           RowBox[{"Integer", ",", " ", 
            RowBox[{"nworkers", " ", "-", " ", "1"}]}], "]"}], ",", 
          "\[IndentingNewLine]", "           ", 
          RowBox[{"Random", "[", 
           RowBox[{"Integer", ",", " ", 
            RowBox[{"nlabels", " ", "-", " ", "1"}]}], "]"}]}], " ", "}"}], 
        ",", "\[IndentingNewLine]", "            ", 
        RowBox[{"{", " ", 
         RowBox[{"i", ",", " ", "1", ",", " ", "nratings"}], " ", "}"}]}], 
       "]"}]}], " ", 
     RowBox[{"(*", " ", "r", " ", "*)"}], "\[IndentingNewLine]", "}"}], ",", 
    " ", 
    RowBox[{"{", " ", 
     RowBox[{"foo", ",", " ", "1", ",", " ", "10"}], " ", "}"}]}], 
   "]"}]}]}], "Input",
 CellChangeTimes->{{3.5213198023674088`*^9, 3.521319806678164*^9}, {
   3.521319841278997*^9, 3.521319998143119*^9}, {3.521320056026449*^9, 
   3.5213202470344133`*^9}, {3.5213203034771013`*^9, 3.521320412671164*^9}, {
   3.521320450924569*^9, 3.521320509766828*^9}, {3.521320561841152*^9, 
   3.521320581102922*^9}, {3.5213206273661747`*^9, 3.521320735212844*^9}, {
   3.521320879372446*^9, 3.521320879723878*^9}, {3.521320942894346*^9, 
   3.5213209435681467`*^9}, {3.521321247812214*^9, 3.521321378312883*^9}, {
   3.52132197532421*^9, 3.521321997318965*^9}, {3.521322607804085*^9, 
   3.5213226153349524`*^9}, {3.5213226506176558`*^9, 3.52132268329023*^9}, {
   3.521377841284711*^9, 3.521377855658619*^9}, 3.521379982613592*^9, {
   3.5219998287761717`*^9, 3.521999832441927*^9}, {3.522000138812842*^9, 
   3.522000141585009*^9}, {3.522000172864872*^9, 3.522000177051201*^9}, {
   3.522000475606834*^9, 3.522000482254418*^9}, 3.522001129174313*^9, {
   3.5220018518217154`*^9, 3.522001853219174*^9}, {3.5220023675057487`*^9, 
   3.522002368379712*^9}, {3.522069002679037*^9, 3.522069013857874*^9}, {
   3.522069146606058*^9, 3.5220692416909857`*^9}, {3.522069469446464*^9, 
   3.522069472549869*^9}, 3.52206982962311*^9, {3.527780658032692*^9, 
   3.527780755047415*^9}, {3.527780786528483*^9, 3.5277808403853073`*^9}, {
   3.527780902608429*^9, 3.52778090924261*^9}, {3.527781737797717*^9, 
   3.527781738880911*^9}, {3.527781777170577*^9, 3.527781796694702*^9}, {
   3.52787881730672*^9, 3.527878832133266*^9}, {3.527879044151861*^9, 
   3.527879044405476*^9}, {3.527879205195476*^9, 3.5278792098235483`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "0.9117626496419862`", ",", "0.5001169252554911`", ",", 
         "0.6993887864337829`", ",", "0.32914196434077886`", ",", 
         "0.9850512780521413`", ",", "0.516042232587575`", ",", 
         "0.9388063646484596`", ",", "0.9353205272995052`", ",", 
         "0.7657391310549765`", ",", "0.5581445936518131`", ",", 
         "0.5912843553260773`", ",", "0.33836969183914534`", ",", 
         "0.5731224520556755`", ",", "0.6202024849285492`", ",", 
         "0.04723191688417102`", ",", "0.20822183898153818`", ",", 
         "0.6278707976440777`", ",", "0.8252391410717531`", ",", 
         "0.9413844011648792`", ",", "0.8474384116543658`", ",", 
         "0.36826980066062753`", ",", "0.485378138372487`", ",", 
         "0.5829580173961741`", ",", "0.5645387979302975`"}], "}"}], ",", 
       "0.45650715101864137`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.9852612131169959`", ",", "0.8835692309623912`", ",", 
         "0.23539683358951863`", ",", "0.4714558729665`", ",", 
         "0.46921898052942096`", ",", "0.9447628663139316`", ",", 
         "0.3000763062900134`", ",", "0.7057167419115236`", ",", 
         "0.9110743868776078`", ",", "0.35347851098785443`", ",", 
         "0.961706614450868`", ",", "0.1325942898558481`", ",", 
         "0.29087190194905854`", ",", "0.3062465941036834`", ",", 
         "0.7534847754693299`", ",", "0.5047234922117704`", ",", 
         "0.46563276087730543`", ",", "0.3648621929388042`", ",", 
         "0.9060463638149641`", ",", "0.13645369155114287`", ",", 
         "0.9802546225048184`", ",", "0.78190417554263`", ",", 
         "0.3415075658846666`", ",", "0.6799465405325015`", ",", 
         "0.9949934093878225`", ",", "0.8983349445802389`", ",", 
         "0.10611073229514796`", ",", "0.20849066756600154`", ",", 
         "0.5257744288584015`", ",", "0.9535720782663073`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.8060344260051345`", ",", "0.502773925654478`", ",", 
         "0.6147000419807938`", ",", "0.6000935672784529`", ",", 
         "0.8443278115542665`", ",", "0.37017963579862995`", ",", 
         "0.3238281400317352`", ",", "0.29384697317476943`", ",", 
         "0.09084303608493662`", ",", "0.8654561435868595`", ",", 
         "0.8581953791544298`", ",", "0.9289847802359653`", ",", 
         "0.18479667226997257`", ",", "0.7290024520357167`", ",", 
         "0.8779407566496114`", ",", "0.14708060469333525`", ",", 
         "0.843289106385306`", ",", "0.04905591150321513`", ",", 
         "0.8829473472617888`", ",", "0.24874566011309637`", ",", 
         "0.7371783740901581`", ",", "0.8405652439372135`", ",", 
         "0.3571729184033872`", ",", "0.2951735818467891`", ",", 
         "0.9311439480850234`", ",", "0.33779131828273556`", ",", 
         "0.7424728764225934`", ",", "0.6950800145683362`", ",", 
         "0.08681613653075698`", ",", "0.9676116824841057`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.4186447363908582`", ",", "0.4012330413935668`", ",", 
         "0.9959731004458203`", ",", "0.1021555388972461`", ",", 
         "0.5604493572364284`"}], "}"}], ",", 
       RowBox[{"-", "1"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "2"}], "}"}]}], "}"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "7.435936698442063`*^-12", ",", "1.8766799175056342`*^-13", ",", 
       "0.9999999999714848`", ",", "4.363836750581061`*^-12", ",", 
       "1.6527587875078767`*^-11"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "0.8111764281758478`", ",", "0.3731530868615294`", ",", 
         "0.6825086005868171`", ",", "0.3251676564642662`", ",", 
         "0.9678873217905418`", ",", "0.32409717535831434`", ",", 
         "0.7995612533250284`", ",", "0.07642199635116988`", ",", 
         "0.2307089477003838`", ",", "0.48353193142110074`", ",", 
         "0.4423883349216411`", ",", "0.7812484145043808`", ",", 
         "0.2995649996153603`", ",", "0.14574061313836514`", ",", 
         "0.6999154584990477`", ",", "0.08616839993604454`", ",", 
         "0.21274886308460336`", ",", "0.1781289306542595`", ",", 
         "0.2812707221081895`", ",", "0.6849353585424778`", ",", 
         "0.21677576263878298`", ",", "0.0759733917570134`", ",", 
         "0.7208213648717611`", ",", "0.21268709738487626`"}], "}"}], ",", 
       "0.40559933446293517`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.702820304895484`", ",", "0.038312764284944005`", ",", 
         "0.8875194409206101`", ",", "0.43771201267239335`", ",", 
         "0.37872312953716963`", ",", "0.2387515109599157`", ",", 
         "0.8110974445694401`", ",", "0.20700306497200954`", ",", 
         "0.895191198116069`", ",", "0.7963631760382746`", ",", 
         "0.029849030065059377`", ",", "0.9074380653566492`", ",", 
         "0.7494505849777038`", ",", "0.09644771753922689`", ",", 
         "0.9436806301290148`", ",", "0.6946892022720459`", ",", 
         "0.5713216543234443`", ",", "0.8151769954310374`", ",", 
         "0.2587452715865371`", ",", "0.4779134396332629`", ",", 
         "0.4953482625664309`", ",", "0.09435563055927629`", ",", 
         "0.04605817420166083`", ",", "0.07231410517032769`", ",", 
         "0.792527957670947`", ",", "0.05604286627433229`", ",", 
         "0.1585387332810508`", ",", "0.6346020924979343`", ",", 
         "0.4138048281337773`", ",", "0.8172913553144165`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.3474412887116106`", ",", "0.42759902752592477`", ",", 
         "0.5186136300177083`", ",", "0.020928179276142017`", ",", 
         "0.3175922586465513`", ",", "0.5201609621692755`", ",", 
         "0.7691630450400045`", ",", "0.9244804617369151`", ",", 
         "0.3739116285175364`", ",", "0.8254717598972298`", ",", 
         "0.19784139071656026`", ",", "0.10930346630587774`", ",", 
         "0.11516635693099933`", ",", "0.3475583202639669`", ",", 
         "0.7024931281501293`", ",", "0.014947835746601443`", ",", 
         "0.0691081827293385`", ",", "0.27524421509363917`", ",", 
         "0.9099651704791825`", ",", "0.9589049694722691`", ",", 
         "0.9105694494482877`", ",", "0.6406421225957049`", ",", 
         "0.4961603423454051`", ",", "0.14161361415785256`", ",", 
         "0.563128160736677`", ",", "0.21304309506978006`", ",", 
         "0.9775467123276967`", ",", "0.12068543488171055`", ",", 
         "0.2455359020901258`", ",", "0.6928821329005045`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.20838366728769217`", ",", "0.19620497314479543`", ",", 
         "0.8716242735725893`", ",", "0.8674103730032747`", ",", 
         "0.010542276571131902`"}], "}"}], ",", 
       RowBox[{"-", "1"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"1", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "1"}], "}"}]}], "}"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "0.00016979723947212498`", ",", "0.9995989320684376`", ",", 
       "0.00018108359131950385`", ",", "2.5685162212939305`*^-6", ",", 
       "0.000047618584549501025`"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "0.75645791664159`", ",", "0.5198520527393079`", ",", 
         "0.3080491484210025`", ",", "0.07195367109231623`", ",", 
         "0.6873497339122515`", ",", "0.24460783764566874`", ",", 
         "0.3980839779418201`", ",", "0.11304870162004708`", ",", 
         "0.7767802844639639`", ",", "0.6039657150499639`", ",", 
         "0.901923635596415`", ",", "0.9714350874621945`", ",", 
         "0.21365212372728679`", ",", "0.39092261998018385`", ",", 
         "0.9243769232687182`", ",", "0.850749652580484`", ",", 
         "0.9681162216371609`", ",", "0.6980404870796794`", ",", 
         "0.715993255981026`", ",", "0.6545446794356886`", ",", 
         "0.09649194806457162`", ",", "0.8306301140764046`", ",", 
         "0.7054509794098942`", ",", "0.5676431725967709`"}], "}"}], ",", 
       "0.3400340314229816`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.31077806133709673`", ",", "0.39740183098889165`", ",", 
         "0.4956895015044546`", ",", "0.6526842975107301`", ",", 
         "0.066170223691428`", ",", "0.9993178530470715`", ",", 
         "0.3826407998844076`", ",", "0.8759040130467662`", ",", 
         "0.4622045086414641`", ",", "0.09739421745065653`", ",", 
         "0.41120571242221304`", ",", "0.6622518893194794`", ",", 
         "0.07128188866128025`", ",", "0.1730172941819383`", ",", 
         "0.5604560598417291`", ",", "0.6941356676823185`", ",", 
         "0.37324140158160085`", ",", "0.45702403820091225`", ",", 
         "0.9059113804060405`", ",", "0.5976437196177469`", ",", 
         "0.5426112875051963`", ",", "0.7515730587910181`", ",", 
         "0.33826820780926964`", ",", "0.25760968819476526`", ",", 
         "0.2318332261680995`", ",", "0.35417122780212645`", ",", 
         "0.842578706304815`", ",", "0.6049253906840352`", ",", 
         "0.1656630024766715`", ",", "0.35485337475505496`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.4599379064204074`", ",", "0.729021377637269`", ",", 
         "0.7034584938352074`", ",", "0.2574591573043984`", ",", 
         "0.04873219399819436`", ",", "0.06676948831778956`", ",", 
         "0.6321766051739272`", ",", "0.0844418631224601`", ",", 
         "0.4882761341564653`", ",", "0.3726338206354711`", ",", 
         "0.2589352035923263`", ",", "0.6274178249215479`", ",", 
         "0.5823647537504248`", ",", "0.7749901010177243`", ",", 
         "0.7163239160871301`", ",", "0.8758447661305298`", ",", 
         "0.24409654594115518`", ",", "0.517380412822959`", ",", 
         "0.48449068991903055`", ",", "0.5216735383284034`", ",", 
         "0.4015178396363402`", ",", "0.9124550221389238`", ",", 
         "0.318827687442359`", ",", "0.16682016357334836`", ",", 
         "0.9415799332159328`", ",", "0.18343364450165484`", ",", 
         "0.6153691936071516`", ",", "0.90936100626895`", ",", 
         "0.8928477392177384`", ",", "0.11666415618386528`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.9831925884332244`", ",", "0.8249191431464898`", ",", 
         "0.40457160506127315`", ",", "0.7440303355483942`", ",", 
         "0.7242573848408982`"}], "}"}], ",", 
       RowBox[{"-", "1"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"3", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "2"}], "}"}]}], "}"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "9.945071971434056`*^-7", ",", "5.74254661071287`*^-13", ",", 
       "0.9999384146704515`", ",", "2.1431757898313006`*^-10", ",", 
       "0.0000605906074595444`"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "0.8222068513108484`", ",", "0.9690402345306699`", ",", 
         "0.007933468753768097`", ",", "0.3216565520944122`", ",", 
         "0.5781103053696932`", ",", "0.45165982170771085`", ",", 
         "0.5234427788347376`", ",", "0.7999830137660089`", ",", 
         "0.17659246573335297`", ",", "0.5392047995687871`", ",", 
         "0.20461509139237852`", ",", "0.6331628501926605`", ",", 
         "0.23501253251742016`", ",", "0.35577115506713225`", ",", 
         "0.589245897785227`", ",", "0.7238018439237106`", ",", 
         "0.34216479329968175`", ",", "0.23910699888326695`", ",", 
         "0.6060533093520025`", ",", "0.8988827007772208`", ",", 
         "0.9375931882384086`", ",", "0.49507666333487277`", ",", 
         "0.8817959245111043`", ",", "0.7013813825522788`"}], "}"}], ",", 
       "0.11538633692756027`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.5260364288042029`", ",", "0.8738624557573362`", ",", 
         "0.3797248304578666`", ",", "0.5372760315578671`", ",", 
         "0.07437660709649202`", ",", "0.3504196769225987`", ",", 
         "0.5797418166918576`", ",", "0.36068356582451416`", ",", 
         "0.535171807527705`", ",", "0.14580458553022013`", ",", 
         "0.9465789664991971`", ",", "0.12567103330709398`", ",", 
         "0.1794006524605727`", ",", "0.5565586877449932`", ",", 
         "0.22277712257548657`", ",", "0.7835062400074122`", ",", 
         "0.9402936535773058`", ",", "0.9505053783929908`", ",", 
         "0.32389442179826583`", ",", "0.8459130517690037`", ",", 
         "0.445216990242433`", ",", "0.06870945388188643`", ",", 
         "0.622513039245987`", ",", "0.7305267148414434`", ",", 
         "0.9191805614382301`", ",", "0.1948469981245502`", ",", 
         "0.24278820878812046`", ",", "0.19325068328357625`", ",", 
         "0.844803954341738`", ",", "0.8444273212019515`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.6630463920962628`", ",", "0.8325671174590621`", ",", 
         "0.3096321468140331`", ",", "0.6986227356717314`", ",", 
         "0.7164674255970657`", ",", "0.7068960841519681`", ",", 
         "0.1302314943534604`", ",", "0.14206404792673819`", ",", 
         "0.49369030302157907`", ",", "0.9233898441445558`", ",", 
         "0.18993784077615464`", ",", "0.19155866953374745`", ",", 
         "0.16979588122331327`", ",", "0.07747679237555222`", ",", 
         "0.7447208505337216`", ",", "0.12284921565186102`", ",", 
         "0.5472828419773262`", ",", "0.34695007753410884`", ",", 
         "0.8255402890954916`", ",", "0.9280022175273108`", ",", 
         "0.3044946331892058`", ",", "0.1536993942505326`", ",", 
         "0.9807363347537535`", ",", "0.08357489632535928`", ",", 
         "0.641448241092943`", ",", "0.32113227679147055`", ",", 
         "0.6711041879397204`", ",", "0.38495216065362786`", ",", 
         "0.9249808154958774`", ",", "0.6142361926395025`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.54087269358626`", ",", "0.24288811272688968`", ",", 
         "0.43129051247429834`", ",", "0.6908463484949465`", ",", 
         "0.3509348528101054`"}], "}"}], ",", 
       RowBox[{"-", "1"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "4"}], "}"}]}], "}"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "0.00001642394005207235`", ",", "1.6524969199922335`*^-7", ",", 
       "0.0038723245968012767`", ",", "0.00024936293095277384`", ",", 
       "0.9958617232825019`"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "0.26149463125098504`", ",", "0.6133695561193944`", ",", 
         "0.6062140022763837`", ",", "0.9284802275412812`", ",", 
         "0.7142117892736588`", ",", "0.2664194785852855`", ",", 
         "0.7806737131808922`", ",", "0.0004780100139703744`", ",", 
         "0.409717156084453`", ",", "0.11272008433475286`", ",", 
         "0.7999373784271386`", ",", "0.9169031136886111`", ",", 
         "0.7682689149915101`", ",", "0.7915878075432824`", ",", 
         "0.1288331904874182`", ",", "0.5319509530349832`", ",", 
         "0.8432880994956327`", ",", "0.17735161490377993`", ",", 
         "0.5879604969011583`", ",", "0.2890628403080936`", ",", 
         "0.4119975870213343`", ",", "0.48650526640883335`", ",", 
         "0.2370256440910528`", ",", "0.23773339711495134`"}], "}"}], ",", 
       "0.15050295577034928`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.873135710289439`", ",", "0.6308116418146691`", ",", 
         "0.30925316957367016`", ",", "0.4362911664966905`", ",", 
         "0.6067162317041536`", ",", "0.850137928633777`", ",", 
         "0.3087751595596998`", ",", "0.02657401041223744`", ",", 
         "0.4939961473694007`", ",", "0.050200550206638356`", ",", 
         "0.3918720458710887`", ",", "0.25830509542072744`", ",", 
         "0.7024083398261183`", ",", "0.9213673597192201`", ",", 
         "0.8599210928361054`", ",", "0.4150169959250948`", ",", 
         "0.5250567249223383`", ",", "0.3334068628180619`", ",", 
         "0.5708582525280119`", ",", "0.0030194089037604704`", ",", 
         "0.038551458513505034`", ",", "0.09638121872700911`", ",", 
         "0.3331248554130605`", ",", "0.8525164531334112`", ",", 
         "0.16541574822406602`", ",", "0.46556957691234`", ",", 
         "0.023871685839390366`", ",", "0.4162252866367207`", ",", 
         "0.5586995165199125`", ",", "0.615431648278563`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.7150965262796906`", ",", "0.3896512762244833`", ",", 
         "0.0647033691505118`", ",", "0.5652310980719247`", ",", 
         "0.3232244804086019`", ",", "0.13134618080375587`", ",", 
         "0.36229502932439345`", ",", "0.6438637383527045`", ",", 
         "0.46330338757249645`", ",", "0.716329184878661`", ",", 
         "0.837238304402055`", ",", "0.31045687553464263`", ",", 
         "0.8924451350444845`", ",", "0.7133097759749006`", ",", 
         "0.79868684588855`", ",", "0.2140756568076335`", ",", 
         "0.559320279631424`", ",", "0.8607933228414895`", ",", 
         "0.633271097664484`", ",", "0.7485060798952935`", ",", 
         "0.5354485937920337`", ",", "0.4445680362047687`", ",", 
         "0.07457158114457156`", ",", "0.13307443161673044`", ",", 
         "0.8203520675123431`", ",", "0.05491675998028539`", ",", 
         "0.009868211994059763`", ",", "0.5678433335448058`", ",", 
         "0.4971275871037412`", ",", "0.9235705791765295`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.6475731826696663`", ",", "0.9239795951921013`", ",", 
         "0.033824199531244756`", ",", "0.20724139429786845`", ",", 
         "0.8103348782676112`"}], "}"}], ",", "3", ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"3", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "0"}], "}"}]}], "}"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "0.00001532631246041462`", ",", "0.008728235789143267`", ",", 
       "2.284414818227386`*^-6", ",", "0.9912541171933652`", ",", 
       "3.629021295935579`*^-8"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "0.1413790644867602`", ",", "0.49393161832296784`", ",", 
         "0.011648032379061193`", ",", "0.3994470628498251`", ",", 
         "0.5820587848553361`", ",", "0.6331382954814785`", ",", 
         "0.3783769347145772`", ",", "0.6509409829545316`", ",", 
         "0.04661019106330247`", ",", "0.18857025927670976`", ",", 
         "0.3038053535700056`", ",", "0.5178665513378012`", ",", 
         "0.22625812355095937`", ",", "0.13365349929642437`", ",", 
         "0.29393714157594586`", ",", "0.9500232177929955`", ",", 
         "0.7291305364472181`", ",", "0.21008292011989485`", ",", 
         "0.6463639589062795`", ",", "0.026043622600894212`", ",", 
         "0.6953063369159734`", ",", "0.0028415258220263976`", ",", 
         "0.8360290806386683`", ",", "0.4125209029434356`"}], "}"}], ",", 
       "0.5539272724292132`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.5089099074990585`", ",", "0.8243810482596071`", ",", 
         "0.013073840093610456`", ",", "0.9718684875738771`", ",", 
         "0.8757716120175801`", ",", "0.44600411354502995`", ",", 
         "0.3621328571390788`", ",", "0.9252582965105746`", ",", 
         "0.6872013527408704`", ",", "0.14219875997502435`", ",", 
         "0.8442663058012776`", ",", "0.6990001729596153`", ",", 
         "0.5535478534444459`", ",", "0.8482616183990785`", ",", 
         "0.8942430880082821`", ",", "0.9698696365123971`", ",", 
         "0.3434649333245511`", ",", "0.20189765949279895`", ",", 
         "0.8681994654073879`", ",", "0.27456329959642367`", ",", 
         "0.3406234075025247`", ",", "0.36586857885413065`", ",", 
         "0.45567856246395233`", ",", "0.7206360271672104`", ",", 
         "0.8317135000034661`", ",", "0.5414875305945235`", ",", 
         "0.4426047223703419`", ",", "0.7487675395933333`", ",", 
         "0.9559418879858861`", ",", "0.09548341704949354`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.0804718652312631`", ",", "0.8235092430827587`", ",", 
         "0.26874053524501573`", ",", "0.9532846570744692`", ",", 
         "0.2362055594299855`", ",", "0.12450907012314347`", ",", 
         "0.7151926818005698`", ",", "0.10502303867539067`", ",", 
         "0.34196247142170333`", ",", "0.1546394336107464`", ",", 
         "0.3717277484760187`", ",", "0.9031253791825917`", ",", 
         "0.47376300601431537`", ",", "0.8800761340143227`", ",", 
         "0.031104340973494`", ",", "0.5372568003284611`", ",", 
         "0.018084443550363042`", ",", "0.15944010684711235`", ",", 
         "0.19939084097002785`", ",", "0.9957692697339375`", ",", 
         "0.5754797211800211`", ",", "0.410672567253779`", ",", 
         "0.2434489529841418`", ",", "0.900285852684444`", ",", 
         "0.49500785594875807`", ",", "0.5871633241710204`", ",", 
         "0.9747084177391261`", ",", "0.9470011956099749`", ",", 
         "0.25880229651877257`", ",", "0.46265425404787686`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.25951573593855626`", ",", "0.8419781569345842`", ",", 
         "0.9168398250970692`", ",", "0.3080148204371304`", ",", 
         "0.8877879874625376`"}], "}"}], ",", "1", ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"2", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0"}], "}"}]}], "}"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "2.9703183993317063`*^-6", ",", "0.07511555331663392`", ",", 
       "0.00006749247673239947`", ",", "0.06523065144557923`", ",", 
       "0.8595833324426552`"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "0.4430768190827538`", ",", "0.4279386864228077`", ",", 
         "0.8566836464890436`", ",", "0.40159597742353137`", ",", 
         "0.4249923755323908`", ",", "0.26849857957569534`", ",", 
         "0.6572928055190157`", ",", "0.4058267076895938`", ",", 
         "0.8495126543523697`", ",", "0.8578260123219164`", ",", 
         "0.41384385253487393`", ",", "0.5055408550051498`", ",", 
         "0.3545047984036116`", ",", "0.270662688150896`", ",", 
         "0.4391354347957479`", ",", "0.5585396593951749`", ",", 
         "0.09570250188483903`", ",", "0.8080084341030191`", ",", 
         "0.17961969885719162`", ",", "0.7165615024605907`", ",", 
         "0.17886267678776982`", ",", "0.49999361366588874`", ",", 
         "0.291831711394654`", ",", "0.7777087247085982`"}], "}"}], ",", 
       "0.735785857705016`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.07205492724308109`", ",", "0.4351480649056104`", ",", 
         "0.37611274728506683`", ",", "0.31079348217262526`", ",", 
         "0.8035563476673857`", ",", "0.7778552593865947`", ",", 
         "0.970286039595473`", ",", "0.4612808278202556`", ",", 
         "0.9457303353454695`", ",", "0.36401140685172073`", ",", 
         "0.46474518459032327`", ",", "0.10677602941664403`", ",", 
         "0.6750676471945735`", ",", "0.9248759720559728`", ",", 
         "0.9062055251951484`", ",", "0.011073527531804997`", ",", 
         "0.8670592130915542`", ",", "0.7452562731987813`", ",", 
         "0.18964402273455772`", ",", "0.8322108507440352`", ",", 
         "0.36706559942566547`", ",", "0.4534245618041272`", ",", 
         "0.4119352980259595`", ",", "0.09642499303901916`", ",", 
         "0.29501067218258437`", ",", "0.01827649689851678`", ",", 
         "0.035822550740892696`", ",", "0.7856315108663939`", ",", 
         "0.4914543245151986`", ",", "0.24042123751192207`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.06553651114541967`", ",", "0.3243506830461383`", ",", 
         "0.5457239891697292`", ",", "0.8764098306602013`", ",", 
         "0.6007913265550964`", ",", "0.2175746536294943`", ",", 
         "0.8706563419751558`", ",", "0.9515338586042285`", ",", 
         "0.694585801359948`", ",", "0.20650112609768928`", ",", 
         "0.0035971288836015728`", ",", "0.2062775854054472`", ",", 
         "0.5049417786253902`", ",", "0.3742902753536541`", ",", 
         "0.6365315294579361`", ",", "0.75285302360132`", ",", 
         "0.09300648059943076`", ",", "0.277865282314635`", ",", 
         "0.34152085727535175`", ",", "0.7345765267028032`", ",", 
         "0.05718392985853807`", ",", "0.49223377144824104`", ",", 
         "0.8500665327601531`", ",", "0.4941552891908811`", ",", 
         "0.9916474187131183`", ",", "0.16788308840210273`", ",", 
         "0.3043425435904239`", ",", "0.6177454585306797`", ",", 
         "0.390856092158022`", ",", "0.9503084347726084`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.4336862016152681`", ",", "0.6662115999264513`", ",", 
         "0.696270290798074`", ",", "0.7438073086749192`", ",", 
         "0.4300890727316666`"}], "}"}], ",", 
       RowBox[{"-", "1"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"1", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "2"}], "}"}]}], "}"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "0.020498096731710165`", ",", "8.579586129638116`*^-11", ",", 
       "0.9792390637417914`", ",", "0.0002628242888195509`", ",", 
       "1.5151882992119055`*^-8"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "0.19132851217268373`", ",", "0.369517033321265`", ",", 
         "0.7935575432737304`", ",", "0.7070809909196841`", ",", 
         "0.09832203157325296`", ",", "0.09165175100663008`", ",", 
         "0.4520366859983787`", ",", "0.972504464216881`", ",", 
         "0.041138101714714895`", ",", "0.599417979558389`", ",", 
         "0.6019701532382256`", ",", "0.4783491750259999`", ",", 
         "0.0494906830015965`", ",", "0.43153489115628635`", ",", 
         "0.29762760964780166`", ",", "0.8606037164953201`", ",", 
         "0.6586345908435745`", ",", "0.4812264563836779`", ",", 
         "0.8639414080325335`", ",", "0.19439211656886873`", ",", 
         "0.9623643000455006`", ",", "0.7374191477087587`", ",", 
         "0.433852335300867`", ",", "0.7344581020478647`"}], "}"}], ",", 
       "0.7710357878728168`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.3679021143874937`", ",", "0.6402947920271366`", ",", 
         "0.027377111128180438`", ",", "0.6727137562995639`", ",", 
         "0.2762503633808637`", ",", "0.18825810602875787`", ",", 
         "0.05487264691129946`", ",", "0.6315756545848489`", ",", 
         "0.6768323838224746`", ",", "0.5862879527905323`", ",", 
         "0.5765234718852996`", ",", "0.5820849715832525`", ",", 
         "0.24529749266618825`", ",", "0.2886603431427306`", ",", 
         "0.7159197553899795`", ",", "0.9234503807396779`", ",", 
         "0.7640710362825104`", ",", "0.42471893511019704`", ",", 
         "0.5215276388211108`", ",", "0.9610860806941774`", ",", 
         "0.026651888573751586`", ",", "0.99086659980933`", ",", 
         "0.7870695367732462`", ",", "0.19005029282136066`", ",", 
         "0.6587497741862579`", ",", "0.3505718077821935`", ",", 
         "0.7596924256450657`", ",", "0.5173365365217968`", ",", 
         "0.38249941080539424`", ",", "0.16231370175343565`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.7048197787337662`", ",", "0.8857608819369479`", ",", 
         "0.7056670269829196`", ",", "0.5760257489629034`", ",", 
         "0.12829630684846666`", ",", "0.30367591035369546`", ",", 
         "0.4603695343167314`", ",", "0.2873654058201728`", ",", 
         "0.4123765514584872`", ",", "0.3802255296140175`", ",", 
         "0.6962984980342211`", ",", "0.8626464707099757`", ",", 
         "0.8908489126373764`", ",", "0.4191394489198401`", ",", 
         "0.6696466094604694`", ",", "0.8717798709006457`", ",", 
         "0.10377937586413025`", ",", "0.22908915609847946`", ",", 
         "0.01089683527421157`", ",", "0.5212080631184521`", ",", 
         "0.34408695021906455`", ",", "0.7117526195766827`", ",", 
         "0.6283974244688174`", ",", "0.3588943613650165`", ",", 
         "0.6392671714852982`", ",", "0.8259917376397348`", ",", 
         "0.9227303974858977`", ",", "0.7828686124021131`", ",", 
         "0.5109708646368316`", ",", "0.5223158272860393`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.46236086316916636`", ",", "0.49550320658194036`", ",", 
         "0.09859431317834444`", ",", "0.14209029767202178`", ",", 
         "0.7660623651349454`"}], "}"}], ",", "1", ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"1", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "1"}], "}"}]}], "}"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "1.8725468955550208`*^-7", ",", "0.9924313763651309`", ",", 
       "1.1185975420889951`*^-11", ",", "0.00003325849838384415`", ",", 
       "0.0075351778706098105`"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "0.20774540054096804`", ",", "0.7229508487521816`", ",", 
         "0.09641575567447594`", ",", "0.761076864971319`", ",", 
         "0.1039660246768378`", ",", "0.4938616926537022`", ",", 
         "0.08551892040026436`", ",", "0.23986880185286683`", ",", 
         "0.7598790744577733`", ",", "0.7821090730770196`", ",", 
         "0.457121495931447`", ",", "0.8809744404878503`", ",", 
         "0.12061190297247501`", ",", "0.9561173354372848`", ",", 
         "0.5343910984455492`", ",", "0.09810582808573715`", ",", 
         "0.6096410383356434`", ",", "0.4338015081512455`", ",", 
         "0.07203023527638289`", ",", "0.6026026215037967`", ",", 
         "0.511046725157299`", ",", "0.29171121047922377`", ",", 
         "0.3059678701414375`", ",", "0.9697458856318321`"}], "}"}], ",", 
       "0.3033013246163309`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.5687603617270421`", ",", "0.2095521144669616`", ",", 
         "0.2086690206605131`", ",", "0.19933529993949312`", ",", 
         "0.07489866907333989`", ",", "0.12403319406669723`", ",", 
         "0.9688002188076462`", ",", "0.43945622548171986`", ",", 
         "0.2927895959963203`", ",", "0.6669116981352502`", ",", 
         "0.08782577831979596`", ",", "0.3188443225092448`", ",", 
         "0.33667226055903554`", ",", "0.13252059968970095`", ",", 
         "0.9897199502340588`", ",", "0.7092032841736015`", ",", 
         "0.90287075240779`", ",", "0.06049036441331807`", ",", 
         "0.38711732873026206`", ",", "0.19815655901630247`", ",", 
         "0.6111595419285663`", ",", "0.7545224942718806`", ",", 
         "0.41737144309842994`", ",", "0.8948552343999715`", ",", 
         "0.04239918020152416`", ",", "0.5449703798049189`", ",", 
         "0.20870242243791684`", ",", "0.6955199344604784`", ",", 
         "0.9675005111281842`", ",", "0.4209371857382217`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.23990220363027057`", ",", "0.2560637089787586`", ",", 
         "0.6747109151318639`", ",", "0.7540254876029715`", ",", 
         "0.1520764253104746`", ",", "0.9372193864695137`", ",", 
         "0.3380386545728284`", ",", "0.6215048879132705`", ",", 
         "0.1623564750764158`", ",", "0.2280161022959123`", ",", 
         "0.4351679021650384`", ",", "0.5610145234999525`", ",", 
         "0.7752391463461538`", ",", "0.029859543279609813`", ",", 
         "0.8240083602364722`", ",", "0.806492029228072`", ",", 
         "0.3578677032477238`", ",", "0.13500430887963827`", ",", 
         "0.781609180034948`", ",", "0.261521649423153`", ",", 
         "0.14916528080980695`", ",", "0.43948437441915983`", ",", 
         "0.8141086689067637`", ",", "0.8405844636849312`", ",", 
         "0.9092630771795364`", ",", "0.18342066544040128`", ",", 
         "0.1393977537748998`", ",", "0.08655897608195974`", ",", 
         "0.7571866518690618`", ",", "0.24620127897088756`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.8013590992020714`", ",", "0.4650540881686892`", ",", 
         "0.5948301767926459`", ",", "0.01818517667497527`", ",", 
         "0.366191197037033`"}], "}"}], ",", "3", ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "2"}], "}"}]}], "}"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "2.07207547852001`*^-6", ",", "3.2990808845371015`*^-12", ",", 
       "6.354519515024429`*^-8", ",", "0.9998482784597903`", ",", 
       "0.00014958591623708074`"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "0.8195910304464923`", ",", "0.9883256333953655`", ",", 
         "0.5421828368005608`", ",", "0.09754753544066484`", ",", 
         "0.46172332719876846`", ",", "0.8533213245157272`", ",", 
         "0.7605736567656128`", ",", "0.8360258860175119`", ",", 
         "0.3125580463889615`", ",", "0.41383695009656735`", ",", 
         "0.9464649878588491`", ",", "0.9954414223325806`", ",", 
         "0.4032949692094251`", ",", "0.23041628465616606`", ",", 
         "0.8070672340839493`", ",", "0.9088824462506209`", ",", 
         "0.6461083173403633`", ",", "0.9842150056852785`", ",", 
         "0.005708134881877923`", ",", "0.4438283580819317`", ",", 
         "0.05127814054771734`", ",", "0.9660298290103032`", ",", 
         "0.639516937844845`", ",", "0.539788793413195`"}], "}"}], ",", 
       "0.2316871101012251`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.9777041956149378`", ",", "0.0973341010442841`", ",", 
         "0.4422412579725301`", ",", "0.7699637829024567`", ",", 
         "0.12438287109921059`", ",", "0.33676044427867124`", ",", 
         "0.6062153719550183`", ",", "0.4574057365134952`", ",", 
         "0.7105459210026432`", ",", "0.3902954564198221`", ",", 
         "0.6107739496224376`", ",", "0.054110767304070086`", ",", 
         "0.4801296363464772`", ",", "0.5832282223358728`", ",", 
         "0.7018915033718167`", ",", "0.40800244996370677`", ",", 
         "0.4959146306611987`", ",", "0.5775200874539949`", ",", 
         "0.258063145289885`", ",", "0.3567243094159894`", ",", 
         "0.5298848016508955`", ",", "0.93800314960915`", ",", 
         "0.71827435187669`", ",", "0.1250371993147643`", ",", 
         "0.5521806060359576`", ",", "0.8406690485648659`", ",", 
         "0.2760330939041599`", ",", "0.35507341641230766`", ",", 
         "0.42779773493674705`", ",", "0.5039086042861947`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.6698177219491417`", ",", "0.8976676798988125`", ",", 
         "0.7172518139341039`", ",", "0.11361314786637249`", ",", 
         "0.05904377232670407`", ",", "0.8435569125947424`", ",", 
         "0.23712217758762663`", ",", "0.5303849255304997`", ",", 
         "0.3571522689548874`", ",", "0.43555446263103564`", ",", 
         "0.741207546926428`", ",", "0.9528648380765048`", ",", 
         "0.0990891236650024`", ",", "0.07883015321504619`", ",", 
         "0.21132274527553252`", ",", "0.014861688467354825`", ",", 
         "0.38081477178831236`", ",", "0.9537929539002818`", ",", 
         "0.6591421392395749`", ",", "0.17419263990248895`", ",", 
         "0.10478167788415248`", ",", "0.5987195374879742`", ",", 
         "0.2313444043028278`", ",", "0.6702840356162943`", ",", 
         "0.4349639559350108`", ",", "0.7010518575891618`", ",", 
         "0.514092590368724`", ",", "0.5566708877499219`", ",", 
         "0.37592018360830676`", ",", "0.8574949449944194`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.27697041278109735`", ",", "0.026285962219422178`", ",", 
         "0.018767914653419367`", ",", "0.4219404823633837`", ",", 
         "0.5357628658546694`"}], "}"}], ",", 
       RowBox[{"-", "1"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"2", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "0"}], "}"}]}], "}"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "0.7207423181910654`", ",", "0.2503300297243968`", ",", 
       "0.028901636727622387`", ",", "0.000024059904726266463`", ",", 
       "1.9554521891597655`*^-6"}], "}"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.527780917647375*^9, 3.52778173995354*^9, {3.527781779496818*^9, 
   3.527781796957849*^9}, 3.527782289924819*^9, 3.5277823920288773`*^9, 
   3.5278788334342003`*^9, 3.527879044772345*^9, 3.527879225834425*^9, 
   3.528055226842072*^9, 3.528056531552174*^9}]
}, Open  ]]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["qfunc", "Subsection",
 CellChangeTimes->{{3.525095319326301*^9, 3.525095320059371*^9}, {
  3.52509801721535*^9, 3.525098017925005*^9}, {3.527812956513686*^9, 
  3.5278129566241426`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "qfunc", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"qfunc", "[", 
    RowBox[{
    "loga_", ",", " ", "log\[Beta]_", ",", " ", "c_", ",", " ", "d_", ",", 
     " ", "pz_", ",", " ", "r_", ",", "  ", "plog\[Beta]_"}], "]"}], " ", ":=",
    " ", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"q", " ", "=", " ", "0"}], ",", " ", "x", ",", " ", "y", ",", 
       " ", "z", ",", " ", "worker", ",", " ", "rating"}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"For", "[", 
       RowBox[{
        RowBox[{"y", " ", "=", " ", "1"}], ",", " ", 
        RowBox[{"y", " ", "\[LessEqual]", " ", 
         RowBox[{"Length", "[", "pz", "]"}]}], ",", " ", 
        RowBox[{"++", "y"}], ",", "\[IndentingNewLine]", 
        RowBox[{"q", " ", "-=", " ", 
         RowBox[{
          RowBox[{"pz", "[", 
           RowBox[{"[", "y", "]"}], "]"}], " ", 
          RowBox[{"Log", "[", 
           RowBox[{"pz", "[", 
            RowBox[{"[", "y", "]"}], "]"}], "]"}]}]}]}], 
       "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"For", "[", 
       RowBox[{
        RowBox[{"x", " ", "=", " ", "1"}], ",", " ", 
        RowBox[{"x", " ", "\[LessEqual]", " ", 
         RowBox[{"Length", "[", "r", "]"}]}], ",", " ", 
        RowBox[{"++", "x"}], ",", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"worker", " ", "=", " ", 
          RowBox[{
           RowBox[{"r", "[", 
            RowBox[{"[", "x", "]"}], "]"}], "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
         RowBox[{"rating", " ", "=", " ", 
          RowBox[{
           RowBox[{"r", "[", 
            RowBox[{"[", "x", "]"}], "]"}], "[", 
           RowBox[{"[", "2", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
         RowBox[{"For", "[", 
          RowBox[{
           RowBox[{"y", " ", "=", " ", "1"}], ",", " ", 
           RowBox[{"y", " ", "\[LessEqual]", " ", 
            RowBox[{"Length", "[", "pz", "]"}]}], ",", " ", 
           RowBox[{"++", "y"}], ",", "\[IndentingNewLine]", 
           RowBox[{"q", " ", "+=", " ", 
            RowBox[{
             RowBox[{"pz", "[", 
              RowBox[{"[", "y", "]"}], "]"}], 
             RowBox[{"logpratingmega", "[", 
              RowBox[{"y", ",", " ", "rating", ",", " ", 
               RowBox[{"loga", "[", 
                RowBox[{"[", "worker", "]"}], "]"}], ",", " ", "log\[Beta]", 
               ",", " ", 
               RowBox[{"1", " ", "+", " ", 
                RowBox[{"c", "[", 
                 RowBox[{"[", "y", "]"}], "]"}]}], ",", " ", 
               RowBox[{"1", " ", "+", " ", "d"}]}], "]"}]}]}]}], 
          "\[IndentingNewLine]", "]"}]}]}], "\[IndentingNewLine]", "]"}], ";",
       "\[IndentingNewLine]", 
      RowBox[{"q", " ", "+=", " ", 
       RowBox[{"Log", "[", 
        RowBox[{"PDF", "[", 
         RowBox[{"plog\[Beta]", ",", " ", "log\[Beta]"}], "]"}], "]"}]}], ";",
       "\[IndentingNewLine]", "q"}]}], "\[IndentingNewLine]", "]"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.527812980398535*^9, 3.527813013864043*^9}, {
  3.52781305952456*^9, 3.5278130891042547`*^9}, {3.527813257196286*^9, 
  3.527813284458872*^9}, {3.527814095363267*^9, 3.5278140958399887`*^9}, {
  3.52787932377773*^9, 3.527879329618082*^9}, {3.5278794563404083`*^9, 
  3.52787946145849*^9}, {3.528056601319213*^9, 3.528056604229019*^9}}],

Cell[CellGroupData[{

Cell["Test Vectors for qfunc", "Subsubsection",
 CellChangeTimes->{{3.50401932583255*^9, 3.504019328703233*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "nworkers", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nworkers", " ", "=", " ", "4"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", "nlabels", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nlabels", " ", "=", " ", "5"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", "nratings", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nratings", " ", "=", " ", "8"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", "rank", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"rank", " ", "=", " ", "6"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"{", " ", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"ListQ", "[", "#", "]"}], " ", "&&", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"!", " ", 
             RowBox[{"ListQ", "[", 
              RowBox[{"#", "[", 
               RowBox[{"[", "1", "]"}], "]"}], "]"}]}], " ", "||", " ", 
            RowBox[{"!", " ", 
             RowBox[{"IntegerQ", "[", 
              RowBox[{
               RowBox[{"#", "[", 
                RowBox[{"[", "1", "]"}], "]"}], "[", 
               RowBox[{"[", "1", "]"}], "]"}], "]"}]}]}], ")"}]}], ",", " ", 
         RowBox[{"Flatten", "[", "#", "]"}], ",", " ", "#"}], "]"}], "&"}], 
      " ", "/@", " ", "#"}], ",", " ", "\[IndentingNewLine]", 
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"qfunc", "[", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"#", "[", 
          RowBox[{"[", "1", "]"}], "]"}], ",", 
         RowBox[{"(*", " ", "loga", " ", "*)"}], "\[IndentingNewLine]", 
         RowBox[{"#", "[", 
          RowBox[{"[", "2", "]"}], "]"}], ",", 
         RowBox[{"(*", " ", "log\[Beta]", " ", "*)"}], "\[IndentingNewLine]", 
         
         RowBox[{"Transpose", "[", 
          RowBox[{"#", "[", 
           RowBox[{"[", "3", "]"}], "]"}], "]"}], ",", 
         RowBox[{"(*", " ", "c", " ", "*)"}], "\[IndentingNewLine]", 
         RowBox[{"#", "[", 
          RowBox[{"[", "4", "]"}], "]"}], ",", 
         RowBox[{"(*", " ", "d", " ", "*)"}], "\[IndentingNewLine]", 
         RowBox[{"#", "[", 
          RowBox[{"[", "5", "]"}], "]"}], ",", 
         RowBox[{"(*", " ", "pz", " ", "*)"}], "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{
           RowBox[{"{", " ", 
            RowBox[{
             RowBox[{"1", " ", "+", " ", 
              RowBox[{"#", "[", 
               RowBox[{"[", "1", "]"}], "]"}]}], ",", " ", 
             RowBox[{"1", " ", "+", " ", 
              RowBox[{"#", "[", 
               RowBox[{"[", "2", "]"}], "]"}]}]}], " ", "}"}], "&"}], " ", "/@",
           " ", 
          RowBox[{"#", "[", 
           RowBox[{"[", "6", "]"}], "]"}]}], ",", " ", 
         RowBox[{"(*", " ", "r", " ", "*)"}], "\[IndentingNewLine]", 
         RowBox[{"NormalDistribution", "[", 
          RowBox[{
           RowBox[{"#", "[", 
            RowBox[{"[", "7", "]"}], "]"}], ",", " ", 
           RowBox[{"#", "[", 
            RowBox[{"[", "8", "]"}], "]"}]}], "]"}]}], " ", 
        RowBox[{"(*", " ", "plog\[Beta]", " ", "*)"}], "\[IndentingNewLine]", 
        "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"D", "[", 
         RowBox[{
          RowBox[{"qfunc", "[", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"#", "[", 
             RowBox[{"[", "1", "]"}], "]"}], ",", 
            RowBox[{"(*", " ", "loga", " ", "*)"}], "\[IndentingNewLine]", 
            "log\[Beta]", ",", 
            RowBox[{"(*", " ", "log\[Beta]", " ", "*)"}], 
            "\[IndentingNewLine]", 
            RowBox[{"Transpose", "[", 
             RowBox[{"#", "[", 
              RowBox[{"[", "3", "]"}], "]"}], "]"}], ",", 
            RowBox[{"(*", " ", "c", " ", "*)"}], "\[IndentingNewLine]", 
            RowBox[{"#", "[", 
             RowBox[{"[", "4", "]"}], "]"}], ",", 
            RowBox[{"(*", " ", "d", " ", "*)"}], "\[IndentingNewLine]", 
            RowBox[{"#", "[", 
             RowBox[{"[", "5", "]"}], "]"}], ",", 
            RowBox[{"(*", " ", "pz", " ", "*)"}], "\[IndentingNewLine]", 
            RowBox[{
             RowBox[{
              RowBox[{"{", " ", 
               RowBox[{
                RowBox[{"1", " ", "+", " ", 
                 RowBox[{"#", "[", 
                  RowBox[{"[", "1", "]"}], "]"}]}], ",", " ", 
                RowBox[{"1", " ", "+", " ", 
                 RowBox[{"#", "[", 
                  RowBox[{"[", "2", "]"}], "]"}]}]}], " ", "}"}], "&"}], " ", 
             "/@", " ", 
             RowBox[{"#", "[", 
              RowBox[{"[", "6", "]"}], "]"}]}], ",", " ", 
            RowBox[{"(*", " ", "r", " ", "*)"}], "\[IndentingNewLine]", 
            RowBox[{"NormalDistribution", "[", 
             RowBox[{
              RowBox[{"#", "[", 
               RowBox[{"[", "7", "]"}], "]"}], ",", " ", 
              RowBox[{"#", "[", 
               RowBox[{"[", "8", "]"}], "]"}]}], "]"}]}], " ", 
           RowBox[{"(*", " ", "plog\[Beta]", " ", "*)"}], 
           "\[IndentingNewLine]", "]"}], ",", " ", "log\[Beta]"}], "]"}], " ",
         "/.", " ", 
        RowBox[{"log\[Beta]", " ", "\[Rule]", " ", 
         RowBox[{"#", "[", 
          RowBox[{"[", "2", "]"}], "]"}]}]}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"D", "[", 
         RowBox[{
          RowBox[{"qfunc", "[", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"#", "[", 
             RowBox[{"[", "1", "]"}], "]"}], ",", 
            RowBox[{"(*", " ", "loga", " ", "*)"}], "\[IndentingNewLine]", 
            "log\[Beta]", ",", 
            RowBox[{"(*", " ", "log\[Beta]", " ", "*)"}], 
            "\[IndentingNewLine]", 
            RowBox[{"Transpose", "[", 
             RowBox[{"#", "[", 
              RowBox[{"[", "3", "]"}], "]"}], "]"}], ",", 
            RowBox[{"(*", " ", "c", " ", "*)"}], "\[IndentingNewLine]", 
            RowBox[{"#", "[", 
             RowBox[{"[", "4", "]"}], "]"}], ",", 
            RowBox[{"(*", " ", "d", " ", "*)"}], "\[IndentingNewLine]", 
            RowBox[{"#", "[", 
             RowBox[{"[", "5", "]"}], "]"}], ",", 
            RowBox[{"(*", " ", "pz", " ", "*)"}], "\[IndentingNewLine]", 
            RowBox[{
             RowBox[{
              RowBox[{"{", " ", 
               RowBox[{
                RowBox[{"1", " ", "+", " ", 
                 RowBox[{"#", "[", 
                  RowBox[{"[", "1", "]"}], "]"}]}], ",", " ", 
                RowBox[{"1", " ", "+", " ", 
                 RowBox[{"#", "[", 
                  RowBox[{"[", "2", "]"}], "]"}]}]}], " ", "}"}], "&"}], " ", 
             "/@", " ", 
             RowBox[{"#", "[", 
              RowBox[{"[", "6", "]"}], "]"}]}], ",", " ", 
            RowBox[{"(*", " ", "r", " ", "*)"}], "\[IndentingNewLine]", 
            RowBox[{"NormalDistribution", "[", 
             RowBox[{
              RowBox[{"#", "[", 
               RowBox[{"[", "7", "]"}], "]"}], ",", " ", 
              RowBox[{"#", "[", 
               RowBox[{"[", "8", "]"}], "]"}]}], "]"}]}], " ", 
           RowBox[{"(*", " ", "plog\[Beta]", " ", "*)"}], 
           "\[IndentingNewLine]", "]"}], ",", " ", 
          RowBox[{"{", " ", 
           RowBox[{"log\[Beta]", ",", " ", "2"}], " ", "}"}]}], "]"}], " ", "/.",
         " ", 
        RowBox[{"log\[Beta]", " ", "\[Rule]", " ", 
         RowBox[{"#", "[", 
          RowBox[{"[", "2", "]"}], "]"}]}]}]}], "\[IndentingNewLine]", 
      "}"}]}], "\[IndentingNewLine]", "}"}], " ", "&"}], " ", "/@", 
  "\[IndentingNewLine]", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"{", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"Random", "[", "]"}], ",", " ", 
          RowBox[{"{", " ", 
           RowBox[{"i", ",", " ", "1", ",", " ", "rank"}], " ", "}"}]}], 
         "]"}], ",", " ", 
        RowBox[{"{", " ", 
         RowBox[{"j", ",", " ", "1", ",", " ", "nworkers"}], " ", "}"}]}], 
       "]"}], ",", " ", 
      RowBox[{"(*", " ", "loga", " ", "*)"}], "\[IndentingNewLine]", 
      RowBox[{"Random", "[", "]"}], ",", " ", 
      RowBox[{"(*", " ", "log\[Beta]", " ", "*)"}], "\[IndentingNewLine]", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"Random", "[", "]"}], ",", " ", 
          RowBox[{"{", " ", 
           RowBox[{"i", ",", " ", "1", ",", " ", "nlabels"}], " ", "}"}]}], 
         "]"}], ",", " ", 
        RowBox[{"{", " ", 
         RowBox[{"j", ",", " ", "1", ",", " ", "rank"}], " ", "}"}]}], "]"}], 
      ",", " ", 
      RowBox[{"(*", " ", "c", " ", "*)"}], "\[IndentingNewLine]", 
      RowBox[{"Table", " ", "[", 
       RowBox[{
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"Random", "[", "]"}], ",", " ", 
          RowBox[{"{", " ", 
           RowBox[{"i", ",", " ", "1", ",", " ", "nlabels"}], " ", "}"}]}], 
         "]"}], ",", " ", 
        RowBox[{"{", " ", 
         RowBox[{"j", ",", " ", "1", ",", " ", "rank"}], " ", "}"}]}], "]"}], 
      ",", " ", 
      RowBox[{"(*", " ", "d", " ", "*)"}], "\[IndentingNewLine]", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"Random", "[", "]"}], ",", " ", 
        RowBox[{"{", " ", 
         RowBox[{"i", ",", " ", "1", ",", " ", "nlabels"}], " ", "}"}]}], 
       "]"}], ",", " ", 
      RowBox[{"(*", " ", "pz", " ", "*)"}], "\[IndentingNewLine]", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Random", "[", 
           RowBox[{"Integer", ",", " ", 
            RowBox[{"nworkers", " ", "-", " ", "1"}]}], "]"}], ",", 
          "\[IndentingNewLine]", "           ", 
          RowBox[{"Random", "[", 
           RowBox[{"Integer", ",", " ", 
            RowBox[{"nlabels", " ", "-", " ", "1"}]}], "]"}]}], " ", "}"}], 
        ",", "\[IndentingNewLine]", "            ", 
        RowBox[{"{", " ", 
         RowBox[{"i", ",", " ", "1", ",", " ", "nratings"}], " ", "}"}]}], 
       "]"}], ",", " ", 
      RowBox[{"(*", " ", "r", " ", "*)"}], "\[IndentingNewLine]", 
      RowBox[{"Random", "[", "]"}], ",", " ", 
      RowBox[{"(*", " ", 
       RowBox[{"mean", " ", "of", " ", "plog\[Beta]"}], " ", "*)"}], 
      "\[IndentingNewLine]", 
      RowBox[{"Random", "[", "]"}]}], " ", 
     RowBox[{"(*", " ", 
      RowBox[{"var", " ", "of", " ", "plog\[Beta]"}], " ", "*)"}], 
     "\[IndentingNewLine]", "}"}], ",", " ", 
    RowBox[{"{", " ", 
     RowBox[{"foo", ",", " ", "1", ",", " ", "10"}], " ", "}"}]}], 
   "]"}]}]}], "Input",
 CellChangeTimes->{{3.5213198023674088`*^9, 3.521319806678164*^9}, {
   3.521319841278997*^9, 3.521319998143119*^9}, {3.521320056026449*^9, 
   3.5213202470344133`*^9}, {3.5213203034771013`*^9, 3.521320412671164*^9}, {
   3.521320450924569*^9, 3.521320509766828*^9}, {3.521320561841152*^9, 
   3.521320581102922*^9}, {3.5213206273661747`*^9, 3.521320735212844*^9}, {
   3.521320879372446*^9, 3.521320879723878*^9}, {3.521320942894346*^9, 
   3.5213209435681467`*^9}, {3.521321247812214*^9, 3.521321378312883*^9}, {
   3.52132197532421*^9, 3.521321997318965*^9}, {3.521322607804085*^9, 
   3.5213226153349524`*^9}, {3.5213226506176558`*^9, 3.52132268329023*^9}, {
   3.521377841284711*^9, 3.521377855658619*^9}, 3.521379982613592*^9, 
   3.52250805332108*^9, 3.522508097347521*^9, {3.527813134446953*^9, 
   3.5278132459573183`*^9}, {3.527813305512074*^9, 3.527813352642288*^9}, {
   3.527814063258554*^9, 3.527814084466427*^9}, {3.527814316019315*^9, 
   3.5278143618339787`*^9}, {3.527814431327695*^9, 3.527814463267811*^9}, {
   3.527879387448133*^9, 3.5278793876721077`*^9}, {3.527879515767352*^9, 
   3.52787954306264*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "0.919678790988417`", ",", "0.34311032914833756`", ",", 
         "0.32444012057913685`", ",", "0.05855943567556257`", ",", 
         "0.5388640192001046`", ",", "0.38931737524805565`", ",", 
         "0.665297981339562`", ",", "0.8843667957730736`", ",", 
         "0.43408234131595214`", ",", "0.7905978377600814`", ",", 
         "0.43395357703673415`", ",", "0.21408276015677927`", ",", 
         "0.9991183853809413`", ",", "0.0895459801709197`", ",", 
         "0.9198609866680102`", ",", "0.6574118724068574`", ",", 
         "0.6231982017726345`", ",", "0.23205103517650033`", ",", 
         "0.6428905738869128`", ",", "0.6311259101874352`", ",", 
         "0.6044302871192152`", ",", "0.8101105528131166`", ",", 
         "0.10712770803224352`", ",", "0.5577047860445179`"}], "}"}], ",", 
       "0.6847514961307982`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.46700022366477906`", ",", "0.7826875874531066`", ",", 
         "0.4991453503689553`", ",", "0.14588747693069362`", ",", 
         "0.07768284841672338`", ",", "0.11738960611354471`", ",", 
         "0.6147785545958817`", ",", "0.7118051356147415`", ",", 
         "0.28708501065664194`", ",", "0.6834360290768106`", ",", 
         "0.4006957944391024`", ",", "0.7126867502338002`", ",", 
         "0.19753903048572222`", ",", "0.7635750424088004`", ",", 
         "0.743283922032245`", ",", "0.08948854846116566`", ",", 
         "0.9654879953092219`", ",", "0.12068446852188747`", ",", 
         "0.11215801184480974`", ",", "0.48505826134195046`", ",", 
         "0.15537744249610527`", ",", "0.013556760489643948`", ",", 
         "0.5544532258002919`", ",", "0.8003067652111523`", ",", 
         "0.6883772188313262`", ",", "0.23086917303653726`", ",", 
         "0.05530787543133661`", ",", "0.6544192882804586`", ",", 
         "0.6106943704146028`", ",", "0.11347956692299256`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.44052932083545493`", ",", "0.9426141526657171`", ",", 
         "0.3236093597579609`", ",", "0.430043537846182`", ",", 
         "0.039833526396352556`", ",", "0.22992740243191692`", ",", 
         "0.1260703292722387`", ",", "0.6664684954373816`", ",", 
         "0.2965496043641076`", ",", "0.14043885397075126`", ",", 
         "0.16058233396301683`", ",", "0.5457840269154942`", ",", 
         "0.18439159251929785`", ",", "0.6553805926288008`", ",", 
         "0.005204891466911537`", ",", "0.5322272664258503`", ",", 
         "0.6299383667190059`", ",", "0.8550738274176485`", ",", 
         "0.3168276726355853`", ",", "0.301358093389313`", ",", 
         "0.5746304912876693`", ",", "0.20065453913718986`", ",", 
         "0.7061333022209825`", ",", "0.18787852646632044`", ",", 
         "0.1341011704522144`", ",", "0.25804038647147276`", ",", 
         "0.3825239424630215`", ",", "0.7578349886201384`", ",", 
         "0.09426764405586184`", ",", "0.02811298403955582`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.25645361319078286`", ",", "0.09136649318275675`", ",", 
         "0.7977180396917543`", ",", "0.8876741300688046`", ",", 
         "0.09587127922776602`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"3", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "4"}], "}"}]}], "}"}], ",", "0.5455824662672626`",
        ",", "0.6133264471724564`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "78.86473115845656`"}], ",", 
       RowBox[{"-", "78.99528377726232`"}], ",", 
       RowBox[{"-", "85.6518587792536`"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "0.2322935374400038`", ",", "0.09066638776085448`", ",", 
         "0.013355199841412275`", ",", "0.9833880804534505`", ",", 
         "0.37721971002235527`", ",", "0.7738387151252691`", ",", 
         "0.7119971064520992`", ",", "0.4087575891657811`", ",", 
         "0.17656517088516543`", ",", "0.06770541290428671`", ",", 
         "0.5241185799857788`", ",", "0.2746564187135667`", ",", 
         "0.9185247844136927`", ",", "0.6851814704412652`", ",", 
         "0.7662835913656404`", ",", "0.18038877465770486`", ",", 
         "0.8904118003741369`", ",", "0.42872785725048235`", ",", 
         "0.6749170981828837`", ",", "0.3826707349659506`", ",", 
         "0.002737670305332298`", ",", "0.33285657802271634`", ",", 
         "0.1293346319156211`", ",", "0.7693442877934942`"}], "}"}], ",", 
       "0.7704441328653285`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.24219019026186184`", ",", "0.11597943207420884`", ",", 
         "0.7859562073400437`", ",", "0.3932244228429732`", ",", 
         "0.4683514751365927`", ",", "0.40398232562210956`", ",", 
         "0.3771986181742626`", ",", "0.21665925195780777`", ",", 
         "0.400646062232306`", ",", "0.8798637456363307`", ",", 
         "0.10254219946069591`", ",", "0.2981344675441151`", ",", 
         "0.7154645917910408`", ",", "0.11358015427069032`", ",", 
         "0.922153424802991`", ",", "0.40772266716997824`", ",", 
         "0.2867367345405584`", ",", "0.43866305608780665`", ",", 
         "0.5394826898370405`", ",", "0.40498499686464595`", ",", 
         "0.9538801565178421`", ",", "0.30932842417218553`", ",", 
         "0.7701384020435463`", ",", "0.6345408639993174`", ",", 
         "0.7116899662559802`", ",", "0.1933489920979767`", ",", 
         "0.9841821947035025`", ",", "0.2413164411563442`", ",", 
         "0.2433384911193876`", ",", "0.7893666664758672`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.60698357652924`", ",", "0.024657189198536433`", ",", 
         "0.8426924288870816`", ",", "0.9095029208395364`", ",", 
         "0.5044413770685441`", ",", "0.7265227216544213`", ",", 
         "0.12722783709604085`", ",", "0.7959227665688461`", ",", 
         "0.582287952265553`", ",", "0.3188000544844431`", ",", 
         "0.8404911025554824`", ",", "0.35725971048103944`", ",", 
         "0.04280526242851251`", ",", "0.9138150576197972`", ",", 
         "0.8866109460376403`", ",", "0.047931286308853883`", ",", 
         "0.27266686038496624`", ",", "0.2792741936204797`", ",", 
         "0.17492097978166005`", ",", "0.8545822942108772`", ",", 
         "0.28848466568146364`", ",", "0.03795775246413552`", ",", 
         "0.9315824886622724`", ",", "0.06521562773501004`", ",", 
         "0.6815010891522237`", ",", "0.013300563265599086`", ",", 
         "0.08889005977519078`", ",", "0.15571270689547362`", ",", 
         "0.17705971208367965`", ",", "0.28677784161117775`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.9616622226791499`", ",", "0.35978994032662753`", ",", 
         "0.5947717598181267`", ",", "0.9679777871267347`", ",", 
         "0.1211711201236675`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"1", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "2"}], "}"}]}], "}"}], ",", 
       "0.002530229845588094`", ",", "0.5519664973896141`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "140.55245005507342`"}], ",", 
       RowBox[{"-", "141.9384144517655`"}], ",", 
       RowBox[{"-", "147.171102752528`"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "0.05416272950693747`", ",", "0.2345601740860272`", ",", 
         "0.9545989435367342`", ",", "0.27929963700464794`", ",", 
         "0.7748885358864577`", ",", "0.059639194304367156`", ",", 
         "0.10001664932585703`", ",", "0.9908149713231843`", ",", 
         "0.7369307834223222`", ",", "0.12805670564209473`", ",", 
         "0.034801021590847005`", ",", "0.3093138821709606`", ",", 
         "0.7236302201567231`", ",", "0.039166645866903944`", ",", 
         "0.8790883146953734`", ",", "0.13225417008728096`", ",", 
         "0.4368523785455454`", ",", "0.07750442318775402`", ",", 
         "0.5192983743687458`", ",", "0.5374824102691543`", ",", 
         "0.4688745914188107`", ",", "0.9563333030640865`", ",", 
         "0.5167681445231578`", ",", "0.9855159128795401`"}], "}"}], ",", 
       "0.41471186191187326`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.7217731289780593`", ",", "0.5621692009864235`", ",", 
         "0.7062162758748922`", ",", "0.6398233260254156`", ",", 
         "0.6621339346736922`", ",", "0.4621525516605665`", ",", 
         "0.7154013045517079`", ",", "0.9028925426030934`", ",", 
         "0.5340772290315975`", ",", "0.4273515300697195`", ",", 
         "0.40608742238074724`", ",", "0.17926232244637022`", ",", 
         "0.4949105831646935`", ",", "0.5482632153743461`", ",", 
         "0.27383325229346633`", ",", "0.7424099439008248`", ",", 
         "0.4174061599769395`", ",", "0.028964841005600275`", ",", 
         "0.736350842024312`", ",", "0.2735353524820141`", ",", 
         "0.46107285691285294`", ",", "0.5121966964824425`", ",", 
         "0.7508349291447719`", ",", "0.8588234905701408`", ",", 
         "0.7392997279347936`", ",", "0.950027495496019`", ",", 
         "0.044618653269879696`", ",", "0.21900016454472532`", ",", 
         "0.07716579326110146`", ",", "0.48787494383545243`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.3292173487181718`", ",", "0.316107621941632`", ",", 
         "0.543088564229504`", ",", "0.06052341376573293`", ",", 
         "0.9231299263374245`", ",", "0.13684529949526178`", ",", 
         "0.048177981064810506`", ",", "0.5122601983913868`", ",", 
         "0.6492966740439582`", ",", "0.39443535559443693`", ",", 
         "0.630771821087871`", ",", "0.4832953573857865`", ",", 
         "0.9129458320196462`", ",", "0.12090000311242283`", ",", 
         "0.16969896417501806`", ",", "0.971098660903344`", ",", 
         "0.16211090287487434`", ",", "0.262076512542282`", ",", 
         "0.4303992362402244`", ",", "0.02107116540732505`", ",", 
         "0.11749224960499464`", ",", "0.04307634799755665`", ",", 
         "0.35323344297912296`", ",", "0.5331962215718726`", ",", 
         "0.7882749008868228`", ",", "0.7269687260559247`", ",", 
         "0.8101448787496189`", ",", "0.4726728078061397`", ",", 
         "0.8651449745493983`", ",", "0.5901234265606629`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.7619668976848084`", ",", "0.9604126094147529`", ",", 
         "0.21584830050544007`", ",", "0.19568807096622592`", ",", 
         "0.13119507659693744`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"3", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "4"}], "}"}]}], "}"}], ",", "0.4771172520289664`",
        ",", "0.30290246848579383`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "91.50963857529173`"}], ",", 
       RowBox[{"-", "90.23775213903424`"}], ",", 
       RowBox[{"-", "110.40968939139881`"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "0.07478806785380308`", ",", "0.9614961124219193`", ",", 
         "0.5060185911256224`", ",", "0.14079156561091952`", ",", 
         "0.8127115553115211`", ",", "0.531096876181695`", ",", 
         "0.4849474257182973`", ",", "0.02329931600592486`", ",", 
         "0.7696352073139645`", ",", "0.17786343320257197`", ",", 
         "0.9517512041464247`", ",", "0.23502441511910202`", ",", 
         "0.04266648125803982`", ",", "0.36771855445295304`", ",", 
         "0.47907839634028504`", ",", "0.36987944056970373`", ",", 
         "0.45254305469737693`", ",", "0.6057516567681446`", ",", 
         "0.5186657869255321`", ",", "0.15403114006426366`", ",", 
         "0.256854983731151`", ",", "0.4745565801712071`", ",", 
         "0.04154853489656574`", ",", "0.8511286715784698`"}], "}"}], ",", 
       "0.18206691587734794`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.5130604677492878`", ",", "0.5355299437709434`", ",", 
         "0.7103371059675503`", ",", "0.36935536056582685`", ",", 
         "0.9819635915675928`", ",", "0.05058251805264606`", ",", 
         "0.6870377899616255`", ",", "0.5997201532518623`", ",", 
         "0.8041001583650208`", ",", "0.09883131390622137`", ",", 
         "0.4520133748425234`", ",", "0.5570536719938226`", ",", 
         "0.4363816039120678`", ",", "0.6197529175659363`", ",", 
         "0.0821339342728197`", ",", "0.1045106172964456`", ",", 
         "0.8306299471439232`", ",", "0.10108713064040423`", ",", 
         "0.928102794208556`", ",", "0.8476556335652946`", ",", 
         "0.35607336697271613`", ",", "0.059538595743838484`", ",", 
         "0.07697412263008623`", ",", "0.6655887176879466`", ",", 
         "0.8430128992234284`", ",", "0.5240086519728951`", ",", 
         "0.3666370166625359`", ",", "0.2962333571221198`", ",", 
         "0.8610493076558355`", ",", "0.473426133920249`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.6795992267009104`", ",", "0.6965132038702574`", ",", 
         "0.056949149290814696`", ",", "0.37459482001402766`", ",", 
         "0.227585851858387`", ",", "0.13945953187643487`", ",", 
         "0.6205675453787469`", ",", "0.7548419024480914`", ",", 
         "0.1454519175855673`", ",", "0.034948914579989256`", ",", 
         "0.7899375982348236`", ",", "0.6537547718076872`", ",", 
         "0.2173491233770113`", ",", "0.1872932810146947`", ",", 
         "0.4338642312621075`", ",", "0.5942161760638486`", ",", 
         "0.14037500074692505`", ",", "0.5217045633267481`", ",", 
         "0.5908513320386791`", ",", "0.07020752409095352`", ",", 
         "0.7737379840843892`", ",", "0.2254712062046283`", ",", 
         "0.7298020243828436`", ",", "0.5967813901707045`", ",", 
         "0.09413875738347871`", ",", "0.5289580023343708`", ",", 
         "0.672852875092029`", ",", "0.2221865701566768`", ",", 
         "0.8665529055250917`", ",", "0.389498470457936`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.05228532971328204`", ",", "0.46734466770858546`", ",", 
         "0.7211009879395244`", ",", "0.35454955587794673`", ",", 
         "0.2623477314784584`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"1", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "0"}], "}"}]}], "}"}], ",", "0.8135898959008984`",
        ",", "0.5037518645625131`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "52.34312684426888`"}], ",", 
       RowBox[{"-", "45.23350403504797`"}], ",", 
       RowBox[{"-", "66.05310805670992`"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "0.16725627486325206`", ",", "0.8284835002163509`", ",", 
         "0.21937371983704973`", ",", "0.36337686381558804`", ",", 
         "0.645551711536504`", ",", "0.23763216817767177`", ",", 
         "0.14916619574609621`", ",", "0.5896388797311989`", ",", 
         "0.42008050533187574`", ",", "0.5078301437948282`", ",", 
         "0.5523848055753917`", ",", "0.4955001223477202`", ",", 
         "0.8911225029975048`", ",", "0.8349772687027992`", ",", 
         "0.33019823541871496`", ",", "0.6289472168226284`", ",", 
         "0.5016240325395689`", ",", "0.7826919389895172`", ",", 
         "0.8628535677101294`", ",", "0.9078462288831041`", ",", 
         "0.14707447666162207`", ",", "0.5203442075110588`", ",", 
         "0.049263671809231115`", ",", "0.40409436432059104`"}], "}"}], ",", 
       "0.97981820179837`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.6918607072947078`", ",", "0.8298899519721814`", ",", 
         "0.04071750050500298`", ",", "0.334266490261866`", ",", 
         "0.4542285391170361`", ",", "0.6807237562260852`", ",", 
         "0.4510786207738041`", ",", "0.9141859849299903`", ",", 
         "0.9463983953222079`", ",", "0.1283389506506934`", ",", 
         "0.9555784984260839`", ",", "0.023063481932485433`", ",", 
         "0.11142112661940869`", ",", "0.7981407152319785`", ",", 
         "0.32663128160345545`", ",", "0.5214394493929166`", ",", 
         "0.3287291876298915`", ",", "0.9352871475218489`", ",", 
         "0.4187850527203513`", ",", "0.37436497273129454`", ",", 
         "0.8083849801188328`", ",", "0.8860234757126179`", ",", 
         "0.014690688399760288`", ",", "0.3945467709329245`", ",", 
         "0.11652427282412484`", ",", "0.056133523740436495`", ",", 
         "0.9739731878947573`", ",", "0.06028028067105852`", ",", 
         "0.6622957337070887`", ",", "0.37540976751435134`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.5228945671209532`", ",", "0.14609429574106825`", ",", 
         "0.7158973383848808`", ",", "0.24707081686365792`", ",", 
         "0.5673160686948693`", ",", "0.1230308138085828`", ",", 
         "0.6044762117654722`", ",", "0.44893010163167946`", ",", 
         "0.24068478709141386`", ",", "0.6015913644156662`", ",", 
         "0.2757470241355806`", ",", "0.5136429541098305`", ",", 
         "0.8218997343710626`", ",", "0.22722639168437167`", ",", 
         "0.4673620440167479`", ",", "0.6276194783972127`", ",", 
         "0.8072090459713023`", ",", "0.8326796207514472`", ",", 
         "0.3508377711926231`", ",", "0.5714859546567761`", ",", 
         "0.833235858076545`", ",", "0.7723993400803887`", ",", 
         "0.6885420374855343`", ",", "0.19607618714242478`", ",", 
         "0.31034129095559176`", ",", "0.6263050443393204`", ",", 
         "0.9726446991006535`", ",", "0.9490053702787669`", ",", 
         "0.7430252222607224`", ",", "0.5032742305307376`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.3681684873351814`", ",", "0.5000752686470874`", ",", 
         "0.5023404351693086`", ",", "0.9016828661150714`", ",", 
         "0.0924214631996008`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "4"}], "}"}]}], "}"}], ",", "0.9864323145372569`",
        ",", "0.680440700798246`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "157.60876942878065`"}], ",", 
       RowBox[{"-", "158.38784298943648`"}], ",", 
       RowBox[{"-", "160.93386605951082`"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "0.6744564744306997`", ",", "0.6250594191828529`", ",", 
         "0.3588128361400443`", ",", "0.8732316548269438`", ",", 
         "0.8417768536792526`", ",", "0.27422164799022974`", ",", 
         "0.7873268814832681`", ",", "0.03999579675039879`", ",", 
         "0.0693775135988639`", ",", "0.5856796105046954`", ",", 
         "0.5912506943408433`", ",", "0.7296545057948071`", ",", 
         "0.4430724692595435`", ",", "0.6130349114040419`", ",", 
         "0.6422453240620765`", ",", "0.9866292835340845`", ",", 
         "0.939798238728806`", ",", "0.24486642406886042`", ",", 
         "0.14217005541498912`", ",", "0.484288848364776`", ",", 
         "0.03811537261373456`", ",", "0.15244496086925963`", ",", 
         "0.1557377408777322`", ",", "0.80384814756653`"}], "}"}], ",", 
       "0.3636588981830349`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.5273855416864067`", ",", "0.796924904737688`", ",", 
         "0.9306164927395862`", ",", "0.5218820445037823`", ",", 
         "0.253163893696177`", ",", "0.00959802325441978`", ",", 
         "0.8906206959891874`", ",", "0.4525045309049184`", ",", 
         "0.6674842831914816`", ",", "0.4183473289135764`", ",", 
         "0.16096619019438038`", ",", "0.009432061645374879`", ",", 
         "0.05444937178743975`", ",", "0.7761020048514999`", ",", 
         "0.1743369066602958`", ",", "0.06963382291656894`", ",", 
         "0.8095829477185793`", ",", "0.6339319494365108`", ",", 
         "0.6900480582955199`", ",", "0.031518450302834386`", ",", 
         "0.6571379868493197`", ",", "0.47819420855877864`", ",", 
         "0.8861999107289898`", ",", "0.6678595521197995`", ",", 
         "0.12975244516291298`", ",", "0.6812693038210907`", ",", 
         "0.9555834179894037`", ",", "0.14597750761601722`", ",", 
         "0.876588551466736`", ",", "0.6716712805666709`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.06496272200021626`", ",", "0.6934729767110989`", ",", 
         "0.20910426827525438`", ",", "0.2533239516530945`", ",", 
         "0.903996531805836`", ",", "0.684040915065724`", ",", 
         "0.15465489648781464`", ",", "0.4772219468015946`", ",", 
         "0.7296596251455401`", ",", "0.614407092149155`", ",", 
         "0.3450719487692353`", ",", "0.8432899973650837`", ",", 
         "0.03961156685002027`", ",", "0.5828886418463206`", ",", 
         "0.6879339619199156`", ",", "0.3650957888063051`", ",", 
         "0.15341165612103042`", ",", "0.9150290897265211`", ",", 
         "0.5581815167570026`", ",", "0.6838264849852145`", ",", 
         "0.19782823813162673`", ",", "0.7690515821105038`", ",", 
         "0.6815929652902666`", ",", "0.01215520441854352`", ",", 
         "0.13286551613141045`", ",", "0.07557860539940503`", ",", 
         "0.4724886970150122`", ",", "0.758831252765449`", ",", 
         "0.22886898432557456`", ",", "0.3915376903336811`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.3178338005271976`", ",", "0.2816093059638545`", ",", 
         "0.4992093591800345`", ",", "0.7771305981845261`", ",", 
         "0.9727618517579623`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"2", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "1"}], "}"}]}], "}"}], ",", "0.4383193085987707`",
        ",", "0.4595977923300142`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "97.99704819076337`"}], ",", 
       RowBox[{"-", "94.72596586947951`"}], ",", 
       RowBox[{"-", "114.00213441152742`"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "0.19424195633820546`", ",", "0.28482788983804674`", ",", 
         "0.07322351979246561`", ",", "0.30618613620898383`", ",", 
         "0.2792128666116844`", ",", "0.7266463730810441`", ",", 
         "0.3893970348072512`", ",", "0.10835789807735707`", ",", 
         "0.5101612845011805`", ",", "0.04505340779077747`", ",", 
         "0.3772418303887077`", ",", "0.9754923819459466`", ",", 
         "0.4345826791017755`", ",", "0.5725647107757652`", ",", 
         "0.6184105776232586`", ",", "0.746623397620372`", ",", 
         "0.043044988768094414`", ",", "0.2547309102485676`", ",", 
         "0.33680127165940416`", ",", "0.24741403844033755`", ",", 
         "0.26591439058356836`", ",", "0.28196905849060533`", ",", 
         "0.8984819630606334`", ",", "0.7878162461103233`"}], "}"}], ",", 
       "0.07167243424536289`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.9971411686525586`", ",", "0.8252584432681678`", ",", 
         "0.48163010990133953`", ",", "0.7924595676336785`", ",", 
         "0.2704947955715145`", ",", "0.43586140846091664`", ",", 
         "0.37327221182398246`", ",", "0.282298283132498`", ",", 
         "0.22544138778073702`", ",", "0.05861957807220898`", ",", 
         "0.39777982987803584`", ",", "0.8477156040307225`", ",", 
         "0.6528766770049718`", ",", "0.44020900044895034`", ",", 
         "0.6511564322576638`", ",", "0.8046706152626281`", ",", 
         "0.3981457667564042`", ",", "0.1034077287895462`", ",", 
         "0.40374239381732624`", ",", "0.5387562246790598`", ",", 
         "0.11617670826579887`", ",", "0.20492576572891277`", ",", 
         "0.6159261477070029`", ",", "0.46708379043369685`", ",", 
         "0.11903553961324029`", ",", "0.37966732246074497`", ",", 
         "0.13429603780566338`", ",", "0.6746242228000183`", ",", 
         "0.8485407440417257`", ",", "0.9438059139998283`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.761023825981681`", ",", "0.39232593966752033`", ",", 
         "0.6230993562609888`", ",", "0.8851863359276193`", ",", 
         "0.3632439961036451`", ",", "0.5446103356367978`", ",", 
         "0.970222679256017`", ",", "0.44497733547866897`", ",", 
         "0.7120875638459813`", ",", "0.7399397203741697`", ",", 
         "0.5720769124996128`", ",", "0.3415696066891228`", ",", 
         "0.308345170028655`", ",", "0.20118349569510993`", ",", 
         "0.45590020423381394`", ",", "0.13664384096021`", ",", 
         "0.6924190223216521`", ",", "0.7340997052614131`", ",", 
         "0.33686466462057363`", ",", "0.756976518499465`", ",", 
         "0.5581229845159887`", ",", "0.05947548246139471`", ",", 
         "0.4883239205788478`", ",", "0.8131706044996367`", ",", 
         "0.7970991585343078`", ",", "0.6671495427938744`", ",", 
         "0.8652245643178591`", ",", "0.9279842685720174`", ",", 
         "0.43385516243066274`", ",", "0.12253920715707659`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.8950018850618421`", ",", "0.4830069330933484`", ",", 
         "0.7217675985846814`", ",", "0.3825994867829069`", ",", 
         "0.3229249725622293`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"2", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "1"}], "}"}]}], "}"}], ",", "0.1414373264042256`",
        ",", "0.4134224285560264`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "66.86630825233824`"}], ",", 
       RowBox[{"-", "59.12488719797571`"}], ",", 
       RowBox[{"-", "89.19908659917954`"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "0.18141599108779696`", ",", "0.8670247683284154`", ",", 
         "0.004793485444015577`", ",", "0.7210034062343742`", ",", 
         "0.44731628582638394`", ",", "0.5301601037078417`", ",", 
         "0.24781696694455052`", ",", "0.16288042171838552`", ",", 
         "0.3878408033649892`", ",", "0.041836183128993884`", ",", 
         "0.4346463624449138`", ",", "0.36578126318407767`", ",", 
         "0.7206912605711148`", ",", "0.17661161881113482`", ",", 
         "0.5066620938728964`", ",", "0.931926100753415`", ",", 
         "0.5981520534140382`", ",", "0.28160973374929277`", ",", 
         "0.023655160779548014`", ",", "0.21015850216873352`", ",", 
         "0.21555256663113134`", ",", "0.9586847611870635`", ",", 
         "0.8822178343753224`", ",", "0.7967360736127072`"}], "}"}], ",", 
       "0.03413657554333436`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.09165999285864813`", ",", "0.8774243489313068`", ",", 
         "0.07573266737833288`", ",", "0.5868202897169504`", ",", 
         "0.5614998891508064`", ",", "0.6296073819867564`", ",", 
         "0.9128522456599474`", ",", "0.19897948635196122`", ",", 
         "0.5196637060218126`", ",", "0.19496101954184253`", ",", 
         "0.5470709824758697`", ",", "0.4782882257808464`", ",", 
         "0.3430520872106777`", ",", "0.6882989256689461`", ",", 
         "0.6151448817224547`", ",", "0.8801361723668082`", ",", 
         "0.061442353461384935`", ",", "0.6646437648893981`", ",", 
         "0.4049863795537212`", ",", "0.6645836057356769`", ",", 
         "0.10275759227432145`", ",", "0.7824259305140757`", ",", 
         "0.608250305941014`", ",", "0.6304470301923425`", ",", 
         "0.011097599415673318`", ",", "0.9050015815827689`", ",", 
         "0.5325176385626812`", ",", "0.04362674047539204`", ",", 
         "0.4495977102648669`", ",", "0.2753941995960125`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.6196653929027338`", ",", "0.8446472541234308`", ",", 
         "0.9299340042430544`", ",", "0.08043318005417001`", ",", 
         "0.0725944104268641`", ",", "0.3663590283425844`", ",", 
         "0.5868819170323767`", ",", "0.39213425438522387`", ",", 
         "0.45744952870440936`", ",", "0.4862228559757762`", ",", 
         "0.5254395635709918`", ",", "0.7274904894958257`", ",", 
         "0.05246314915068814`", ",", "0.8216392502400993`", ",", 
         "0.4226819712966703`", ",", "0.9450645589817501`", ",", 
         "0.4442128432096741`", ",", "0.19119222004775688`", ",", 
         "0.411584371880997`", ",", "0.04006297739898121`", ",", 
         "0.9116952046469929`", ",", "0.14756547957236485`", ",", 
         "0.9619866616161301`", ",", "0.7646687778029687`", ",", 
         "0.29202981174425907`", ",", "0.30291822544893404`", ",", 
         "0.0320526573730757`", ",", "0.6842355977487987`", ",", 
         "0.219435401317395`", ",", "0.9365591971063496`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.445170740340699`", ",", "0.2921013433635748`", ",", 
         "0.7619858726129857`", ",", "0.4503363411305734`", ",", 
         "0.9197311767697073`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"3", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "1"}], "}"}]}], "}"}], ",", "0.564610853867749`", 
       ",", "0.7095227234622975`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "73.46099175247235`"}], ",", 
       RowBox[{"-", "63.348621004431706`"}], ",", 
       RowBox[{"-", "90.7547657602307`"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "0.6286970908904741`", ",", "0.49704920547303694`", ",", 
         "0.619546294885999`", ",", "0.2653098802526234`", ",", 
         "0.43750487084271716`", ",", "0.08546483359203995`", ",", 
         "0.5794833174870178`", ",", "0.35361467560563054`", ",", 
         "0.28993939127035234`", ",", "0.12347817197590986`", ",", 
         "0.814814539684049`", ",", "0.06158486386137144`", ",", 
         "0.9870211658214183`", ",", "0.09142551460283417`", ",", 
         "0.1305789419352504`", ",", "0.8421494625439765`", ",", 
         "0.05046196871506867`", ",", "0.6462547742621352`", ",", 
         "0.8384775985716756`", ",", "0.08016358993099079`", ",", 
         "0.6001256275844953`", ",", "0.7265235974924279`", ",", 
         "0.2738667447039266`", ",", "0.3706408664686933`"}], "}"}], ",", 
       "0.9714285366940212`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.229474392019391`", ",", "0.6543204498179277`", ",", 
         "0.10533098621606986`", ",", "0.533923665851304`", ",", 
         "0.14400955842735103`", ",", "0.07483713233090991`", ",", 
         "0.7517163106104393`", ",", "0.24398427458095165`", ",", 
         "0.020531386451441168`", ",", "0.26002259264686084`", ",", 
         "0.6901314467490679`", ",", "0.2569631087595334`", ",", 
         "0.929105871848607`", ",", "0.12944365071161046`", ",", 
         "0.8479819842050914`", ",", "0.20650114004446468`", ",", 
         "0.28285109758647187`", ",", "0.2909660521399348`", ",", 
         "0.7678183942741006`", ",", "0.6063755124599695`", ",", 
         "0.556327500094044`", ",", "0.017099307436008248`", ",", 
         "0.3971775278054073`", ",", "0.6349469757659483`", ",", 
         "0.32685310807465295`", ",", "0.3627788576180806`", ",", 
         "0.2918465415893375`", ",", "0.10102330991464425`", ",", 
         "0.18284354964730193`", ",", "0.2879417252871707`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.5401302309788981`", ",", "0.8570390353336926`", ",", 
         "0.16231216319586075`", ",", "0.027919132640309853`", ",", 
         "0.8499987842298303`", ",", "0.6000759265741592`", ",", 
         "0.23320629134725376`", ",", "0.8984754819286994`", ",", 
         "0.002016800024738848`", ",", "0.3935747865296946`", ",", 
         "0.9503551937607819`", ",", "0.6075094297887645`", ",", 
         "0.23419840575063822`", ",", "0.7871992740697251`", ",", 
         "0.39402769366673795`", ",", "0.5904101223527564`", ",", 
         "0.8370208779452308`", ",", "0.15225229830377687`", ",", 
         "0.06717458559208503`", ",", "0.2276312647346757`", ",", 
         "0.5451743363558934`", ",", "0.05122898838913261`", ",", 
         "0.8843310359447831`", ",", "0.939689539447505`", ",", 
         "0.005044105376995226`", ",", "0.19418995305544`", ",", 
         "0.7220188727489223`", ",", "0.9117704068071951`", ",", 
         "0.15504532114716493`", ",", "0.5941140264812808`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.4888125814016686`", ",", "0.013294924878495755`", ",", 
         "0.1530285211224261`", ",", "0.2005392399515862`", ",", 
         "0.5384573876408867`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"2", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "3"}], "}"}]}], "}"}], ",", "0.4057854950897312`",
        ",", "0.9188301153717879`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "84.82290037847292`"}], ",", 
       RowBox[{"-", "85.73591527731637`"}], ",", 
       RowBox[{"-", "86.87035490432699`"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "0.41333996588186106`", ",", "0.1444296939741487`", ",", 
         "0.8153753727369749`", ",", "0.08180923742655702`", ",", 
         "0.2610876675780842`", ",", "0.07725510838206368`", ",", 
         "0.5877441080022991`", ",", "0.5366349010706636`", ",", 
         "0.2098586791889516`", ",", "0.19292407243728057`", ",", 
         "0.6480545685547942`", ",", "0.5315907956936684`", ",", 
         "0.015668726133511574`", ",", "0.47090519968835826`", ",", 
         "0.736284161747599`", ",", "0.37654547454650344`", ",", 
         "0.4215546996522308`", ",", "0.9820926182866896`", ",", 
         "0.7229892368691032`", ",", "0.22351695342407737`", ",", 
         "0.2210154597006446`", ",", "0.44363523064580296`", ",", 
         "0.31720374177937205`", ",", "0.30468683805228947`"}], "}"}], ",", 
       "0.8076754938187836`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.2992055366716543`", ",", "0.5018283690423971`", ",", 
         "0.22287760062573247`", ",", "0.5465878262406993`", ",", 
         "0.22195042828959058`", ",", "0.914084261040098`", ",", 
         "0.6862426995550689`", ",", "0.3367291470517477`", ",", 
         "0.029026355852310018`", ",", "0.26602969248530384`", ",", 
         "0.15465190386140043`", ",", "0.32106042091823617`", ",", 
         "0.5581211561639517`", ",", "0.5297455307377048`", ",", 
         "0.7781064293148969`", ",", "0.8995057212660054`", ",", 
         "0.5760285378772622`", ",", "0.8067562938686016`", ",", 
         "0.5545894758908196`", ",", "0.6784902615653607`", ",", 
         "0.13239330723145917`", ",", "0.4895525520892295`", ",", 
         "0.24990263783853012`", ",", "0.8708147677465772`", ",", 
         "0.8331877705598049`", ",", "0.9877241830468323`", ",", 
         "0.027025037212797663`", ",", "0.3242269415058779`", ",", 
         "0.6112373422702143`", ",", "0.07363992200673432`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.3407823376577288`", ",", "0.9874977944541302`", ",", 
         "0.5822109864179043`", ",", "0.8076102295214305`", ",", 
         "0.18613043379632838`", ",", "0.666437373535894`", ",", 
         "0.02408983025395252`", ",", "0.27786469878372566`", ",", 
         "0.4080240044814314`", ",", "0.7669316522698887`", ",", 
         "0.4480612923766904`", ",", "0.4711084049151241`", ",", 
         "0.8534345285906118`", ",", "0.08844139070452789`", ",", 
         "0.3156679851452312`", ",", "0.9815558528258946`", ",", 
         "0.6035318907520817`", ",", "0.21762662295795066`", ",", 
         "0.4824802145854263`", ",", "0.9938316697790623`", ",", 
         "0.576506853539284`", ",", "0.8933996814520728`", ",", 
         "0.871242872315212`", ",", "0.9201917477723279`", ",", 
         "0.23572451588155519`", ",", "0.9059018869979426`", ",", 
         "0.28903188589730766`", ",", "0.11258151825089749`", ",", 
         "0.0495940820852268`", ",", "0.2394645134620486`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.26494205564335516`", ",", "0.8347168194671718`", ",", 
         "0.6415700776037954`", ",", "0.47253286119216`", ",", 
         "0.8168807632666648`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"3", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "3"}], "}"}]}], "}"}], ",", "0.3636084145520477`",
        ",", "0.7881355490131836`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "142.60154326361553`"}], ",", 
       RowBox[{"-", "143.2835644402349`"}], ",", 
       RowBox[{"-", "147.32889881221274`"}]}], "}"}]}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.527813314845682*^9, 3.527813353255954*^9}, {
   3.527814089336391*^9, 3.5278140986523943`*^9}, 3.527814306193611*^9, 
   3.5278143623657637`*^9, {3.527814432435396*^9, 3.527814463850832*^9}, 
   3.527879388568524*^9, {3.527879544859807*^9, 3.5278795512850027`*^9}, 
   3.528055296603435*^9, 3.528056613741091*^9}]
}, Open  ]]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["dqfuncdloga et. al.", "Subsection",
 CellChangeTimes->{{3.525095319326301*^9, 3.525095320059371*^9}, {
  3.52509801721535*^9, 3.525098017925005*^9}, {3.527812956513686*^9, 
  3.5278129566241426`*^9}, {3.528047928941284*^9, 3.528047936094256*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "makevararray", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"makevararray", "[", 
    RowBox[{"s_", ",", " ", "n_"}], "]"}], " ", ":=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"ToExpression", "[", 
      RowBox[{"s", " ", "<>", " ", 
       RowBox[{"ToString", "[", "i", "]"}]}], "]"}], ",", " ", 
     RowBox[{"{", " ", 
      RowBox[{"i", ",", " ", "1", ",", " ", "n"}], " ", "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", "makevarmatrix", "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"makevarmatrix", "[", 
    RowBox[{"s_", ",", " ", "m_", ",", " ", "n_"}], "]"}], " ", ":=", " ", 
   "\[IndentingNewLine]", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"makevararray", "[", 
      RowBox[{
       RowBox[{"s", "<>", " ", 
        RowBox[{"ToString", "[", "i", "]"}]}], ",", " ", "n"}], "]"}], ",", 
     " ", 
     RowBox[{"{", " ", 
      RowBox[{"i", ",", " ", "1", ",", " ", "m"}], " ", "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", "dqfuncdloga", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"dqfuncdloga", "[", 
    RowBox[{
    "loga_", ",", " ", "log\[Beta]_", ",", " ", "c_", ",", " ", "d_", ",", 
     " ", "pz_", ",", " ", "r_", ",", "  ", "plog\[Beta]_"}], "]"}], ":=", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"D", "[", 
     RowBox[{
      RowBox[{"qfunc", "[", 
       RowBox[{
        RowBox[{"makevarmatrix", "[", 
         RowBox[{"\"\<loga\>\"", ",", " ", 
          RowBox[{"Length", "[", "loga", "]"}], ",", " ", 
          RowBox[{"Length", "[", 
           RowBox[{"loga", "[", 
            RowBox[{"[", "1", "]"}], "]"}], "]"}]}], "]"}], ",", " ", 
        "log\[Beta]", ",", " ", "c", ",", " ", "d", ",", " ", "pz", ",", " ", 
        "r", ",", " ", "plog\[Beta]"}], "]"}], ",", " ", 
      RowBox[{"{", " ", 
       RowBox[{"makevarmatrix", "[", 
        RowBox[{"\"\<loga\>\"", ",", " ", 
         RowBox[{"Length", "[", "loga", "]"}], ",", " ", 
         RowBox[{"Length", "[", 
          RowBox[{"loga", "[", 
           RowBox[{"[", "1", "]"}], "]"}], "]"}]}], "]"}], " ", "}"}]}], 
     "]"}], " ", "/.", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"ToExpression", "[", 
        RowBox[{
         RowBox[{"ToString", "[", 
          RowBox[{"#", "[", 
           RowBox[{"[", "1", "]"}], "]"}], "]"}], " ", "<>", " ", 
         "\"\< -> \>\"", " ", "<>", " ", 
         RowBox[{"ToString", "[", 
          RowBox[{"#", "[", 
           RowBox[{"[", "2", "]"}], "]"}], "]"}]}], "]"}], "&"}], " ", "/@", 
      RowBox[{"Transpose", "[", 
       RowBox[{"{", " ", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"Flatten", "[", 
          RowBox[{"makevarmatrix", "[", 
           RowBox[{"\"\<loga\>\"", ",", " ", 
            RowBox[{"Length", "[", "loga", "]"}], ",", " ", 
            RowBox[{"Length", "[", 
             RowBox[{"loga", "[", 
              RowBox[{"[", "1", "]"}], "]"}], "]"}]}], "]"}], "]"}], ",", 
         RowBox[{"Flatten", "[", 
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{"loga", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", " ", "j"}], "]"}], "]"}], ",", " ", 
            RowBox[{"{", " ", 
             RowBox[{"i", ",", " ", "1", ",", " ", 
              RowBox[{"Length", "[", "loga", "]"}]}], "}"}], ",", " ", 
            RowBox[{"{", " ", 
             RowBox[{"j", ",", " ", "1", ",", " ", 
              RowBox[{"Length", "[", 
               RowBox[{"loga", "[", 
                RowBox[{"[", "1", "]"}], "]"}], "]"}]}], "}"}]}], "]"}], 
          "]"}]}], "}"}], "]"}]}], ")"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", "dqfuncdc", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"dqfuncdc", "[", 
    RowBox[{
    "loga_", ",", " ", "log\[Beta]_", ",", " ", "c_", ",", " ", "d_", ",", 
     " ", "pz_", ",", " ", "r_", ",", "  ", "plog\[Beta]_"}], "]"}], ":=", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"D", "[", 
     RowBox[{
      RowBox[{"qfunc", "[", 
       RowBox[{"loga", ",", " ", "log\[Beta]", ",", "  ", 
        RowBox[{"makevarmatrix", "[", 
         RowBox[{"\"\<c\>\"", ",", " ", 
          RowBox[{"Length", "[", "c", "]"}], ",", " ", 
          RowBox[{"Length", "[", 
           RowBox[{"c", "[", 
            RowBox[{"[", "1", "]"}], "]"}], "]"}]}], "]"}], ",", " ", "d", 
        ",", " ", "pz", ",", " ", "r", ",", " ", "plog\[Beta]"}], "]"}], ",", 
      " ", 
      RowBox[{"{", " ", 
       RowBox[{"makevarmatrix", "[", 
        RowBox[{"\"\<c\>\"", ",", " ", 
         RowBox[{"Length", "[", "c", "]"}], ",", " ", 
         RowBox[{"Length", "[", 
          RowBox[{"c", "[", 
           RowBox[{"[", "1", "]"}], "]"}], "]"}]}], "]"}], " ", "}"}]}], 
     "]"}], " ", "/.", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"ToExpression", "[", 
        RowBox[{
         RowBox[{"ToString", "[", 
          RowBox[{"#", "[", 
           RowBox[{"[", "1", "]"}], "]"}], "]"}], " ", "<>", " ", 
         "\"\< -> \>\"", " ", "<>", " ", 
         RowBox[{"ToString", "[", 
          RowBox[{"#", "[", 
           RowBox[{"[", "2", "]"}], "]"}], "]"}]}], "]"}], "&"}], " ", "/@", 
      RowBox[{"Transpose", "[", 
       RowBox[{"{", " ", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"Flatten", "[", 
          RowBox[{"makevarmatrix", "[", 
           RowBox[{"\"\<c\>\"", ",", " ", 
            RowBox[{"Length", "[", "c", "]"}], ",", " ", 
            RowBox[{"Length", "[", 
             RowBox[{"c", "[", 
              RowBox[{"[", "1", "]"}], "]"}], "]"}]}], "]"}], "]"}], ",", 
         RowBox[{"Flatten", "[", 
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{"c", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", " ", "j"}], "]"}], "]"}], ",", " ", 
            RowBox[{"{", " ", 
             RowBox[{"i", ",", " ", "1", ",", " ", 
              RowBox[{"Length", "[", "c", "]"}]}], "}"}], ",", " ", 
            RowBox[{"{", " ", 
             RowBox[{"j", ",", " ", "1", ",", " ", 
              RowBox[{"Length", "[", 
               RowBox[{"c", "[", 
                RowBox[{"[", "1", "]"}], "]"}], "]"}]}], "}"}]}], "]"}], 
          "]"}]}], "}"}], "]"}]}], ")"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", "dqfuncdd", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"dqfuncdd", "[", 
    RowBox[{
    "loga_", ",", " ", "log\[Beta]_", ",", " ", "c_", ",", " ", "d_", ",", 
     " ", "pz_", ",", " ", "r_", ",", "  ", "plog\[Beta]_"}], "]"}], ":=", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"D", "[", 
     RowBox[{
      RowBox[{"qfunc", "[", 
       RowBox[{"loga", ",", " ", "log\[Beta]", ",", " ", "c", ",", "  ", 
        RowBox[{"makevarmatrix", "[", 
         RowBox[{"\"\<d\>\"", ",", " ", 
          RowBox[{"Length", "[", "d", "]"}], ",", " ", 
          RowBox[{"Length", "[", 
           RowBox[{"d", "[", 
            RowBox[{"[", "1", "]"}], "]"}], "]"}]}], "]"}], ",", " ", "pz", 
        ",", " ", "r", ",", " ", "plog\[Beta]"}], "]"}], ",", " ", 
      RowBox[{"{", " ", 
       RowBox[{"makevarmatrix", "[", 
        RowBox[{"\"\<d\>\"", ",", " ", 
         RowBox[{"Length", "[", "d", "]"}], ",", " ", 
         RowBox[{"Length", "[", 
          RowBox[{"d", "[", 
           RowBox[{"[", "1", "]"}], "]"}], "]"}]}], "]"}], " ", "}"}]}], 
     "]"}], " ", "/.", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"ToExpression", "[", 
        RowBox[{
         RowBox[{"ToString", "[", 
          RowBox[{"#", "[", 
           RowBox[{"[", "1", "]"}], "]"}], "]"}], " ", "<>", " ", 
         "\"\< -> \>\"", " ", "<>", " ", 
         RowBox[{"ToString", "[", 
          RowBox[{"#", "[", 
           RowBox[{"[", "2", "]"}], "]"}], "]"}]}], "]"}], "&"}], " ", "/@", 
      RowBox[{"Transpose", "[", 
       RowBox[{"{", " ", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"Flatten", "[", 
          RowBox[{"makevarmatrix", "[", 
           RowBox[{"\"\<d\>\"", ",", " ", 
            RowBox[{"Length", "[", "d", "]"}], ",", " ", 
            RowBox[{"Length", "[", 
             RowBox[{"d", "[", 
              RowBox[{"[", "1", "]"}], "]"}], "]"}]}], "]"}], "]"}], ",", 
         RowBox[{"Flatten", "[", 
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{"d", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", " ", "j"}], "]"}], "]"}], ",", " ", 
            RowBox[{"{", " ", 
             RowBox[{"i", ",", " ", "1", ",", " ", 
              RowBox[{"Length", "[", "d", "]"}]}], "}"}], ",", " ", 
            RowBox[{"{", " ", 
             RowBox[{"j", ",", " ", "1", ",", " ", 
              RowBox[{"Length", "[", 
               RowBox[{"d", "[", 
                RowBox[{"[", "1", "]"}], "]"}], "]"}]}], "}"}]}], "]"}], 
          "]"}]}], "}"}], "]"}]}], ")"}]}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.528047994207477*^9, 3.5280479945671*^9}, 
   3.528048027852558*^9, {3.528048058343996*^9, 3.528048130626357*^9}, {
   3.528048174095562*^9, 3.5280482184623938`*^9}, {3.5280482774678383`*^9, 
   3.528048282877199*^9}, {3.528048331353249*^9, 3.5280484386510057`*^9}, {
   3.528048504475574*^9, 3.528048525829063*^9}, 3.528048569646265*^9, {
   3.528048607002757*^9, 3.528048622734735*^9}, {3.52804875335604*^9, 
   3.528048791909384*^9}, {3.528049801700395*^9, 3.528049819633706*^9}, {
   3.528049862773794*^9, 3.528049869739358*^9}}],

Cell[CellGroupData[{

Cell["Test Vectors for qfunc", "Subsubsection",
 CellChangeTimes->{{3.50401932583255*^9, 3.504019328703233*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "nworkers", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nworkers", " ", "=", " ", "4"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", "nlabels", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nlabels", " ", "=", " ", "5"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", "nratings", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nratings", " ", "=", " ", "8"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", "rank", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"rank", " ", "=", " ", "6"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"{", " ", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"ListQ", "[", "#", "]"}], " ", "&&", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"!", " ", 
             RowBox[{"ListQ", "[", 
              RowBox[{"#", "[", 
               RowBox[{"[", "1", "]"}], "]"}], "]"}]}], " ", "||", " ", 
            RowBox[{"!", " ", 
             RowBox[{"IntegerQ", "[", 
              RowBox[{
               RowBox[{"#", "[", 
                RowBox[{"[", "1", "]"}], "]"}], "[", 
               RowBox[{"[", "1", "]"}], "]"}], "]"}]}]}], ")"}]}], ",", " ", 
         RowBox[{"Flatten", "[", "#", "]"}], ",", " ", "#"}], "]"}], "&"}], 
      " ", "/@", " ", "#"}], ",", " ", "\[IndentingNewLine]", 
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"Flatten", "[", "\[IndentingNewLine]", 
        RowBox[{"dqfuncdloga", "[", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"#", "[", 
           RowBox[{"[", "1", "]"}], "]"}], ",", 
          RowBox[{"(*", " ", "loga", " ", "*)"}], "\[IndentingNewLine]", 
          RowBox[{"#", "[", 
           RowBox[{"[", "2", "]"}], "]"}], ",", 
          RowBox[{"(*", " ", "log\[Beta]", " ", "*)"}], "\[IndentingNewLine]", 
          RowBox[{"Transpose", "[", 
           RowBox[{"#", "[", 
            RowBox[{"[", "3", "]"}], "]"}], "]"}], ",", 
          RowBox[{"(*", " ", "c", " ", "*)"}], "\[IndentingNewLine]", 
          RowBox[{"#", "[", 
           RowBox[{"[", "4", "]"}], "]"}], ",", 
          RowBox[{"(*", " ", "d", " ", "*)"}], "\[IndentingNewLine]", 
          RowBox[{"#", "[", 
           RowBox[{"[", "5", "]"}], "]"}], ",", 
          RowBox[{"(*", " ", "pz", " ", "*)"}], "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{
            RowBox[{"{", " ", 
             RowBox[{
              RowBox[{"1", " ", "+", " ", 
               RowBox[{"#", "[", 
                RowBox[{"[", "1", "]"}], "]"}]}], ",", " ", 
              RowBox[{"1", " ", "+", " ", 
               RowBox[{"#", "[", 
                RowBox[{"[", "2", "]"}], "]"}]}]}], " ", "}"}], "&"}], " ", "/@",
            " ", 
           RowBox[{"#", "[", 
            RowBox[{"[", "6", "]"}], "]"}]}], ",", " ", 
          RowBox[{"(*", " ", "r", " ", "*)"}], "\[IndentingNewLine]", 
          RowBox[{"NormalDistribution", "[", 
           RowBox[{
            RowBox[{"#", "[", 
             RowBox[{"[", "7", "]"}], "]"}], ",", " ", 
            RowBox[{"#", "[", 
             RowBox[{"[", "8", "]"}], "]"}]}], "]"}]}], " ", 
         RowBox[{"(*", " ", "plog\[Beta]", " ", "*)"}], "\[IndentingNewLine]",
          "]"}], "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{"Flatten", "[", "\[IndentingNewLine]", 
        RowBox[{"Transpose", "[", "\[IndentingNewLine]", 
         RowBox[{"dqfuncdc", "[", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"#", "[", 
            RowBox[{"[", "1", "]"}], "]"}], ",", 
           RowBox[{"(*", " ", "loga", " ", "*)"}], "\[IndentingNewLine]", 
           RowBox[{"#", "[", 
            RowBox[{"[", "2", "]"}], "]"}], ",", 
           RowBox[{"(*", " ", "log\[Beta]", " ", "*)"}], 
           "\[IndentingNewLine]", 
           RowBox[{"Transpose", "[", 
            RowBox[{"#", "[", 
             RowBox[{"[", "3", "]"}], "]"}], "]"}], ",", 
           RowBox[{"(*", " ", "c", " ", "*)"}], "\[IndentingNewLine]", 
           RowBox[{"#", "[", 
            RowBox[{"[", "4", "]"}], "]"}], ",", 
           RowBox[{"(*", " ", "d", " ", "*)"}], "\[IndentingNewLine]", 
           RowBox[{"#", "[", 
            RowBox[{"[", "5", "]"}], "]"}], ",", 
           RowBox[{"(*", " ", "pz", " ", "*)"}], "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{
             RowBox[{"{", " ", 
              RowBox[{
               RowBox[{"1", " ", "+", " ", 
                RowBox[{"#", "[", 
                 RowBox[{"[", "1", "]"}], "]"}]}], ",", " ", 
               RowBox[{"1", " ", "+", " ", 
                RowBox[{"#", "[", 
                 RowBox[{"[", "2", "]"}], "]"}]}]}], " ", "}"}], "&"}], " ", "/@",
             " ", 
            RowBox[{"#", "[", 
             RowBox[{"[", "6", "]"}], "]"}]}], ",", " ", 
           RowBox[{"(*", " ", "r", " ", "*)"}], "\[IndentingNewLine]", 
           RowBox[{"NormalDistribution", "[", 
            RowBox[{
             RowBox[{"#", "[", 
              RowBox[{"[", "7", "]"}], "]"}], ",", " ", 
             RowBox[{"#", "[", 
              RowBox[{"[", "8", "]"}], "]"}]}], "]"}]}], " ", 
          RowBox[{"(*", " ", "plog\[Beta]", " ", "*)"}], 
          "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]", "]"}], 
        "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{"Flatten", "[", "\[IndentingNewLine]", 
        RowBox[{"dqfuncdd", "[", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"#", "[", 
           RowBox[{"[", "1", "]"}], "]"}], ",", 
          RowBox[{"(*", " ", "loga", " ", "*)"}], "\[IndentingNewLine]", 
          RowBox[{"#", "[", 
           RowBox[{"[", "2", "]"}], "]"}], ",", 
          RowBox[{"(*", " ", "log\[Beta]", " ", "*)"}], "\[IndentingNewLine]", 
          RowBox[{"Transpose", "[", 
           RowBox[{"#", "[", 
            RowBox[{"[", "3", "]"}], "]"}], "]"}], ",", 
          RowBox[{"(*", " ", "c", " ", "*)"}], "\[IndentingNewLine]", 
          RowBox[{"#", "[", 
           RowBox[{"[", "4", "]"}], "]"}], ",", 
          RowBox[{"(*", " ", "d", " ", "*)"}], "\[IndentingNewLine]", 
          RowBox[{"#", "[", 
           RowBox[{"[", "5", "]"}], "]"}], ",", 
          RowBox[{"(*", " ", "pz", " ", "*)"}], "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{
            RowBox[{"{", " ", 
             RowBox[{
              RowBox[{"1", " ", "+", " ", 
               RowBox[{"#", "[", 
                RowBox[{"[", "1", "]"}], "]"}]}], ",", " ", 
              RowBox[{"1", " ", "+", " ", 
               RowBox[{"#", "[", 
                RowBox[{"[", "2", "]"}], "]"}]}]}], " ", "}"}], "&"}], " ", "/@",
            " ", 
           RowBox[{"#", "[", 
            RowBox[{"[", "6", "]"}], "]"}]}], ",", " ", 
          RowBox[{"(*", " ", "r", " ", "*)"}], "\[IndentingNewLine]", 
          RowBox[{"NormalDistribution", "[", 
           RowBox[{
            RowBox[{"#", "[", 
             RowBox[{"[", "7", "]"}], "]"}], ",", " ", 
            RowBox[{"#", "[", 
             RowBox[{"[", "8", "]"}], "]"}]}], "]"}]}], " ", 
         RowBox[{"(*", " ", "plog\[Beta]", " ", "*)"}], "\[IndentingNewLine]",
          "]"}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", 
      "}"}]}], "\[IndentingNewLine]", "}"}], " ", "&"}], " ", "/@", 
  "\[IndentingNewLine]", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"{", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"Random", "[", "]"}], ",", " ", 
          RowBox[{"{", " ", 
           RowBox[{"i", ",", " ", "1", ",", " ", "rank"}], " ", "}"}]}], 
         "]"}], ",", " ", 
        RowBox[{"{", " ", 
         RowBox[{"j", ",", " ", "1", ",", " ", "nworkers"}], " ", "}"}]}], 
       "]"}], ",", " ", 
      RowBox[{"(*", " ", "loga", " ", "*)"}], "\[IndentingNewLine]", 
      RowBox[{"Random", "[", "]"}], ",", " ", 
      RowBox[{"(*", " ", "log\[Beta]", " ", "*)"}], "\[IndentingNewLine]", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"Random", "[", "]"}], ",", " ", 
          RowBox[{"{", " ", 
           RowBox[{"i", ",", " ", "1", ",", " ", "nlabels"}], " ", "}"}]}], 
         "]"}], ",", " ", 
        RowBox[{"{", " ", 
         RowBox[{"j", ",", " ", "1", ",", " ", "rank"}], " ", "}"}]}], "]"}], 
      ",", " ", 
      RowBox[{"(*", " ", "c", " ", "*)"}], "\[IndentingNewLine]", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"Random", "[", "]"}], ",", " ", 
          RowBox[{"{", " ", 
           RowBox[{"i", ",", " ", "1", ",", " ", "nlabels"}], " ", "}"}]}], 
         "]"}], ",", " ", 
        RowBox[{"{", " ", 
         RowBox[{"j", ",", " ", "1", ",", " ", "rank"}], " ", "}"}]}], "]"}], 
      ",", " ", 
      RowBox[{"(*", " ", "d", " ", "*)"}], "\[IndentingNewLine]", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"Random", "[", "]"}], ",", " ", 
        RowBox[{"{", " ", 
         RowBox[{"i", ",", " ", "1", ",", " ", "nlabels"}], " ", "}"}]}], 
       "]"}], ",", " ", 
      RowBox[{"(*", " ", "pz", " ", "*)"}], "\[IndentingNewLine]", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Random", "[", 
           RowBox[{"Integer", ",", " ", 
            RowBox[{"nworkers", " ", "-", " ", "1"}]}], "]"}], ",", 
          "\[IndentingNewLine]", "           ", 
          RowBox[{"Random", "[", 
           RowBox[{"Integer", ",", " ", 
            RowBox[{"nlabels", " ", "-", " ", "1"}]}], "]"}]}], " ", "}"}], 
        ",", "\[IndentingNewLine]", "            ", 
        RowBox[{"{", " ", 
         RowBox[{"i", ",", " ", "1", ",", " ", "nratings"}], " ", "}"}]}], 
       "]"}], ",", " ", 
      RowBox[{"(*", " ", "r", " ", "*)"}], "\[IndentingNewLine]", 
      RowBox[{"Random", "[", "]"}], ",", " ", 
      RowBox[{"(*", " ", 
       RowBox[{"mean", " ", "of", " ", "plog\[Beta]"}], " ", "*)"}], 
      "\[IndentingNewLine]", 
      RowBox[{"Random", "[", "]"}]}], " ", 
     RowBox[{"(*", " ", 
      RowBox[{"var", " ", "of", " ", "plog\[Beta]"}], " ", "*)"}], 
     "\[IndentingNewLine]", "}"}], ",", " ", 
    RowBox[{"{", " ", 
     RowBox[{"foo", ",", " ", "1", ",", " ", "10"}], " ", "}"}]}], 
   "]"}]}]}], "Input",
 CellChangeTimes->{{3.5213198023674088`*^9, 3.521319806678164*^9}, {
   3.521319841278997*^9, 3.521319998143119*^9}, {3.521320056026449*^9, 
   3.5213202470344133`*^9}, {3.5213203034771013`*^9, 3.521320412671164*^9}, {
   3.521320450924569*^9, 3.521320509766828*^9}, {3.521320561841152*^9, 
   3.521320581102922*^9}, {3.5213206273661747`*^9, 3.521320735212844*^9}, {
   3.521320879372446*^9, 3.521320879723878*^9}, {3.521320942894346*^9, 
   3.5213209435681467`*^9}, {3.521321247812214*^9, 3.521321378312883*^9}, {
   3.52132197532421*^9, 3.521321997318965*^9}, {3.521322607804085*^9, 
   3.5213226153349524`*^9}, {3.5213226506176558`*^9, 3.52132268329023*^9}, {
   3.521377841284711*^9, 3.521377855658619*^9}, 3.521379982613592*^9, 
   3.52250805332108*^9, 3.522508097347521*^9, {3.527813134446953*^9, 
   3.5278132459573183`*^9}, {3.527813305512074*^9, 3.527813352642288*^9}, {
   3.527814063258554*^9, 3.527814084466427*^9}, {3.527814316019315*^9, 
   3.5278143618339787`*^9}, {3.527814431327695*^9, 3.527814463267811*^9}, {
   3.527879387448133*^9, 3.5278793876721077`*^9}, {3.527879515767352*^9, 
   3.52787954306264*^9}, {3.528048267522585*^9, 3.52804830098311*^9}, {
   3.528048472310318*^9, 3.5280484774670353`*^9}, {3.528048635162129*^9, 
   3.5280486390875053`*^9}, {3.528048798124219*^9, 3.528048800743013*^9}, {
   3.5280489131241703`*^9, 3.52804893974704*^9}, 3.528049157510523*^9, {
   3.528049206061253*^9, 3.528049318413739*^9}, {3.528049379334096*^9, 
   3.528049501471533*^9}, {3.528049550453394*^9, 3.528049612198306*^9}, {
   3.528049650484429*^9, 3.528049666161179*^9}, {3.528049770115466*^9, 
   3.528049797049202*^9}, {3.5280513843826427`*^9, 3.528051389693347*^9}, 
   3.528052644134193*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "0.38409147048763204`", ",", "0.5012127781214336`", ",", 
         "0.3820525617261531`", ",", "0.1846036582611019`", ",", 
         "0.16646484752968138`", ",", "0.018732563536007288`", ",", 
         "0.38822089194709075`", ",", "0.6080968047218179`", ",", 
         "0.2730651660776086`", ",", "0.1474896912207953`", ",", 
         "0.46802914417476277`", ",", "0.3723722888402627`", ",", 
         "0.367163279079666`", ",", "0.8584578053234876`", ",", 
         "0.3554476259238653`", ",", "0.3227782067550359`", ",", 
         "0.12769876561761742`", ",", "0.5935157496801324`", ",", 
         "0.5207308064566935`", ",", "0.6812081291512405`", ",", 
         "0.6551659044254574`", ",", "0.7766349864134677`", ",", 
         "0.1571223919046458`", ",", "0.8930725801380569`"}], "}"}], ",", 
       "0.2710744339378254`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.2754222082920341`", ",", "0.7750698301784927`", ",", 
         "0.708468921876955`", ",", "0.10460958640814401`", ",", 
         "0.25668964475602685`", ",", "0.38684893823140193`", ",", 
         "0.10037211715513714`", ",", "0.8315444203305353`", ",", 
         "0.10919995353523153`", ",", "0.9188197940566392`", ",", 
         "0.7279998283148744`", ",", "0.4643811412508694`", ",", 
         "0.2507421482117439`", ",", "0.5633721681327739`", ",", 
         "0.40522162155983854`", ",", "0.33668237563325193`", ",", 
         "0.6572263985316114`", ",", "0.04264136167608036`", ",", 
         "0.724013492408598`", ",", "0.6815164712077945`", ",", 
         "0.8805914121181437`", ",", "0.8855189697714345`", ",", 
         "0.8309409122705411`", ",", "0.4104420372699691`", ",", 
         "0.6051692038261096`", ",", "0.11044913959294184`", ",", 
         "0.12247199039358607`", ",", "0.3058324508618251`", ",", 
         "0.34847955907008277`", ",", "0.7236002013615399`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.022099873238448933`", ",", "0.4742880305312897`", ",", 
         "0.23927960553485123`", ",", "0.8047804073049007`", ",", 
         "0.2941000449235745`", ",", "0.009906889280420347`", ",", 
         "0.9885374573231074`", ",", "0.24140823917212687`", ",", 
         "0.8888784233637359`", ",", "0.6732245136471684`", ",", 
         "0.3313110587914959`", ",", "0.19876687749604652`", ",", 
         "0.1648649309551379`", ",", "0.9917080424393739`", ",", 
         "0.45071964667335224`", ",", "0.3132479077246119`", ",", 
         "0.3339240186845968`", ",", "0.5812660051694049`", ",", 
         "0.8455504428472427`", ",", "0.2027987681316701`", ",", 
         "0.21145202829101073`", ",", "0.2754335543075797`", ",", 
         "0.4970708837771599`", ",", "0.47919856677013023`", ",", 
         "0.1893521550525618`", ",", "0.80114552377629`", ",", 
         "0.2577912782423087`", ",", "0.6744181594652295`", ",", 
         "0.8952521101289873`", ",", "0.7912386344958697`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.26925382091920136`", ",", "0.43300992029310265`", ",", 
         "0.006373686765251373`", ",", "0.11801412084870128`", ",", 
         "0.9379427621277054`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}]}], "}"}], ",", 
       "0.23424304279705613`", ",", "0.8415087558101134`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "0.6038009572850873`"}], ",", 
         RowBox[{"-", "0.7700932343815048`"}], ",", 
         RowBox[{"-", "0.8221818360610144`"}], ",", 
         RowBox[{"-", "0.7769506956638734`"}], ",", 
         RowBox[{"-", "0.6973945036841158`"}], ",", 
         RowBox[{"-", "0.8339378440761019`"}], ",", 
         RowBox[{"-", "1.5450305669207156`"}], ",", 
         RowBox[{"-", "2.2026185643651455`"}], ",", 
         RowBox[{"-", "1.5791483302761171`"}], ",", 
         RowBox[{"-", "1.8648964621616284`"}], ",", 
         RowBox[{"-", "2.468579399544856`"}], ",", 
         RowBox[{"-", "2.5117485376066213`"}], ",", 
         RowBox[{"-", "0.9452409328604212`"}], ",", 
         RowBox[{"-", "1.5656500330972272`"}], ",", 
         RowBox[{"-", "1.081380399912095`"}], ",", 
         RowBox[{"-", "0.8375842129057514`"}], ",", 
         RowBox[{"-", "0.8069814038538485`"}], ",", 
         RowBox[{"-", "1.2210512952421677`"}], ",", 
         RowBox[{"-", "2.4267423145272344`"}], ",", 
         RowBox[{"-", "3.181935225341925`"}], ",", 
         RowBox[{"-", "3.189353284652171`"}], ",", 
         RowBox[{"-", "4.348416904074629`"}], ",", 
         RowBox[{"-", "2.324660130843811`"}], ",", 
         RowBox[{"-", "5.2716695046119675`"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "0.5345295223281575`"}], ",", 
         RowBox[{"-", "1.3090487329344793`"}], ",", 
         RowBox[{"-", "0.013958317774097548`"}], ",", 
         RowBox[{"-", "0.3480483125181649`"}], ",", 
         RowBox[{"-", "1.6767114848744726`"}], ",", 
         RowBox[{"-", "0.8701913664408445`"}], ",", 
         RowBox[{"-", "1.9338388934964672`"}], ",", 
         RowBox[{"-", "0.021993825881518804`"}], ",", 
         RowBox[{"-", "0.5121492314507456`"}], ",", 
         RowBox[{"-", "1.968486792798958`"}], ",", 
         RowBox[{"-", "0.5879455932759627`"}], ",", 
         RowBox[{"-", "1.5295075579205397`"}], ",", 
         RowBox[{"-", "0.017429655101902003`"}], ",", 
         RowBox[{"-", "0.4095519686822972`"}], ",", 
         RowBox[{"-", "1.9599960518118456`"}], ",", 
         RowBox[{"-", "0.6168651760128735`"}], ",", 
         RowBox[{"-", "1.5505820951053435`"}], ",", 
         RowBox[{"-", "0.01569798352620386`"}], ",", 
         RowBox[{"-", "0.41472939822515636`"}], ",", 
         RowBox[{"-", "2.2017402827521932`"}], ",", 
         RowBox[{"-", "0.4475412276726294`"}], ",", 
         RowBox[{"-", "1.1680142890641732`"}], ",", 
         RowBox[{"-", "0.01161919665891939`"}], ",", 
         RowBox[{"-", "0.31083269046025047`"}], ",", 
         RowBox[{"-", "1.7406111604705583`"}], ",", 
         RowBox[{"-", "0.9675763793089673`"}], ",", 
         RowBox[{"-", "2.3744965453939693`"}], ",", 
         RowBox[{"-", "0.026198696375484946`"}], ",", 
         RowBox[{"-", "0.6375076260176795`"}], ",", 
         RowBox[{"-", "3.0197129478802562`"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "2.02275893239508`"}], ",", "0.03885566252612352`", ",", 
         RowBox[{"-", "1.5971699439094604`"}], ",", "0.01868838574423315`", 
         ",", 
         RowBox[{"-", "1.2093544906099474`"}], ",", 
         RowBox[{"-", "2.765495781088173`"}], ",", "0.06573923866944499`", 
         ",", 
         RowBox[{"-", "2.2149587698538156`"}], ",", "0.025321052750814716`", 
         ",", 
         RowBox[{"-", "1.4082320849922476`"}], ",", 
         RowBox[{"-", "2.11680560882792`"}], ",", "0.04724022534762953`", ",", 
         RowBox[{"-", "1.7637681316689264`"}], ",", "0.019021346862762564`", 
         ",", 
         RowBox[{"-", "1.3054897291982432`"}], ",", 
         RowBox[{"-", "2.3870928425514877`"}], ",", "0.04627829727797804`", 
         ",", 
         RowBox[{"-", "2.0034138146019056`"}], ",", "0.01859074600549283`", 
         ",", 
         RowBox[{"-", "1.3477853097710895`"}], ",", 
         RowBox[{"-", "2.0657624808847204`"}], ",", "0.045217970473275346`", 
         ",", 
         RowBox[{"-", "1.7317791117285188`"}], ",", "0.020301281909761423`", 
         ",", 
         RowBox[{"-", "1.0847504306213238`"}], ",", 
         RowBox[{"-", "2.341702809447589`"}], ",", "0.049309012576527866`", 
         ",", 
         RowBox[{"-", "2.101760523969885`"}], ",", "0.018209463824040442`", 
         ",", 
         RowBox[{"-", "1.2270635961531313`"}]}], "}"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "0.12630607840932737`", ",", "0.4872231154543532`", ",", 
         "0.9209951350724442`", ",", "0.5075847371255167`", ",", 
         "0.5450400732399225`", ",", "0.6416726726071106`", ",", 
         "0.718196366940774`", ",", "0.29613270883450593`", ",", 
         "0.26960651893234283`", ",", "0.14460178882995064`", ",", 
         "0.23899780017064384`", ",", "0.10678055378194411`", ",", 
         "0.4684609951560528`", ",", "0.8868105105876419`", ",", 
         "0.5645796407054143`", ",", "0.21152844365295678`", ",", 
         "0.6772223606601832`", ",", "0.6175566896684406`", ",", 
         "0.1315697204123117`", ",", "0.2051547568877054`", ",", 
         "0.5592082398114818`", ",", "0.6796139275407351`", ",", 
         "0.8973266776152555`", ",", "0.36364600107759193`"}], "}"}], ",", 
       "0.4329021614021545`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.19239081208638195`", ",", "0.9763315425428114`", ",", 
         "0.8560612639520753`", ",", "0.8878620881622319`", ",", 
         "0.5507181394792714`", ",", "0.2581351756020373`", ",", 
         "0.5599285551175693`", ",", "0.6182555692298891`", ",", 
         "0.4061163506493208`", ",", "0.01913737543139345`", ",", 
         "0.4531480013356253`", ",", "0.1497945740738363`", ",", 
         "0.5193058400616788`", ",", "0.4545577347259791`", ",", 
         "0.2416195576826685`", ",", "0.47257221341365324`", ",", 
         "0.9017491503932382`", ",", "0.32298801431366736`", ",", 
         "0.03646480079496309`", ",", "0.9133639736021714`", ",", 
         "0.2221352228525031`", ",", "0.42566133669841183`", ",", 
         "0.6728187997173711`", ",", "0.48046181220001694`", ",", 
         "0.029744410766121148`", ",", "0.4493297941556004`", ",", 
         "0.8167575357652959`", ",", "0.592599724037785`", ",", 
         "0.47902627128684977`", ",", "0.19119461855356312`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.2568289806477264`", ",", "0.9743441548078959`", ",", 
         "0.07290992063752898`", ",", "0.17205724312216966`", ",", 
         "0.8036809793121011`", ",", "0.8245495807340596`", ",", 
         "0.5536040805758502`", ",", "0.7174995083961906`", ",", 
         "0.5620614216294326`", ",", "0.35197736732040635`", ",", 
         "0.6518549301826119`", ",", "0.3945114940825232`", ",", 
         "0.5255966208344696`", ",", "0.438613393718235`", ",", 
         "0.42971970733010884`", ",", "0.9688501573841114`", ",", 
         "0.8527778211170984`", ",", "0.9581515815182181`", ",", 
         "0.39997529656398767`", ",", "0.5195203632285109`", ",", 
         "0.0360202853518026`", ",", "0.36555185748043306`", ",", 
         "0.920949025277138`", ",", "0.32832574467494785`", ",", 
         "0.7791913047040762`", ",", "0.3912077026725371`", ",", 
         "0.848039104639609`", ",", "0.15626850155277816`", ",", 
         "0.975510325391975`", ",", "0.5666581219384775`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.29443502406375877`", ",", "0.43876899315658763`", ",", 
         "0.41344890376254234`", ",", "0.21468075461807118`", ",", 
         "0.6425800938811469`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"2", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "4"}], "}"}]}], "}"}], ",", 
       "0.044257499074064434`", ",", "0.8878522829280728`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "3.7333310228380805`"}], ",", 
         RowBox[{"-", "3.386779138477767`"}], ",", 
         RowBox[{"-", "5.107926209852587`"}], ",", 
         RowBox[{"-", "3.8903543260172175`"}], ",", 
         RowBox[{"-", "4.671057490775543`"}], ",", 
         RowBox[{"-", "4.981911392234297`"}], ",", "0", ",", "0", ",", "0", 
         ",", "0", ",", "0", ",", "0", ",", 
         RowBox[{"-", "3.575489804623015`"}], ",", 
         RowBox[{"-", "4.516939413883135`"}], ",", 
         RowBox[{"-", "3.005220754935754`"}], ",", 
         RowBox[{"-", "3.165840058023422`"}], ",", 
         RowBox[{"-", "2.5726557877008167`"}], ",", 
         RowBox[{"-", "3.5526167861139455`"}], ",", 
         RowBox[{"-", "3.1154082431135643`"}], ",", 
         RowBox[{"-", "3.623350344793497`"}], ",", 
         RowBox[{"-", "4.6437218453713776`"}], ",", 
         RowBox[{"-", "7.034458260090464`"}], ",", 
         RowBox[{"-", "5.326798181443012`"}], ",", 
         RowBox[{"-", "5.105369611136836`"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "0.8898723364441252`"}], ",", 
         RowBox[{"-", "1.373560828904539`"}], ",", 
         RowBox[{"-", "1.627887359581661`"}], ",", 
         RowBox[{"-", "0.6945347500306447`"}], ",", 
         RowBox[{"-", "1.4934350238547909`"}], ",", 
         RowBox[{"-", "1.0536167665621057`"}], ",", 
         RowBox[{"-", "1.915633219247229`"}], ",", 
         RowBox[{"-", "2.2052902345583694`"}], ",", 
         RowBox[{"-", "0.9286213428732091`"}], ",", 
         RowBox[{"-", "2.294832972427663`"}], ",", 
         RowBox[{"-", "1.3565567883642984`"}], ",", 
         RowBox[{"-", "2.4199790166340573`"}], ",", 
         RowBox[{"-", "2.5401234646183313`"}], ",", 
         RowBox[{"-", "1.0356059093319723`"}], ",", 
         RowBox[{"-", "2.124273878462061`"}], ",", 
         RowBox[{"-", "1.139943804944755`"}], ",", 
         RowBox[{"-", "2.1741320044948145`"}], ",", 
         RowBox[{"-", "2.2908498385290854`"}], ",", 
         RowBox[{"-", "0.878235153444341`"}], ",", 
         RowBox[{"-", "2.2663343714046476`"}], ",", 
         RowBox[{"-", "1.3642107957412377`"}], ",", 
         RowBox[{"-", "2.273413377243695`"}], ",", 
         RowBox[{"-", "2.427918111440775`"}], ",", 
         RowBox[{"-", "0.8947457318366872`"}], ",", 
         RowBox[{"-", "2.21029548154978`"}], ",", 
         RowBox[{"-", "1.3409027039984265`"}], ",", 
         RowBox[{"-", "2.150731329785107`"}], ",", 
         RowBox[{"-", "2.3887647319772736`"}], ",", 
         RowBox[{"-", "0.9234380449486695`"}], ",", 
         RowBox[{"-", "2.198626686483826`"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "2.114789773460887`"}], ",", 
         RowBox[{"-", "1.020705696598833`"}], ",", "0.01804093207944237`", 
         ",", 
         RowBox[{"-", "1.721359896208618`"}], ",", 
         RowBox[{"-", "2.080688881912819`"}], ",", 
         RowBox[{"-", "2.1494671661975504`"}], ",", 
         RowBox[{"-", "1.2312353758213472`"}], ",", "0.01808018156387642`", 
         ",", 
         RowBox[{"-", "1.4743473080613068`"}], ",", 
         RowBox[{"-", "2.5299506758916483`"}], ",", 
         RowBox[{"-", "1.9950912126867062`"}], ",", 
         RowBox[{"-", "0.9591615756284062`"}], ",", "0.02433029268786984`", 
         ",", 
         RowBox[{"-", "2.084014406389757`"}], ",", 
         RowBox[{"-", "3.6110109521731344`"}], ",", 
         RowBox[{"-", "2.306580761276565`"}], ",", 
         RowBox[{"-", "0.7518330872594592`"}], ",", "0.026495376314604996`", 
         ",", 
         RowBox[{"-", "3.0454270079884838`"}], ",", 
         RowBox[{"-", "2.59602985937785`"}], ",", 
         RowBox[{"-", "2.582346703424181`"}], ",", 
         RowBox[{"-", "1.0087913680072897`"}], ",", "0.022397056371124074`", 
         ",", 
         RowBox[{"-", "2.9133518973691057`"}], ",", 
         RowBox[{"-", "2.636441449875427`"}], ",", 
         RowBox[{"-", "2.124446687900002`"}], ",", 
         RowBox[{"-", "1.0168416709155617`"}], ",", "0.021303318445863223`", 
         ",", 
         RowBox[{"-", "1.9259948639049407`"}], ",", 
         RowBox[{"-", "3.207460979289058`"}]}], "}"}]}], "}"}]}], "}"}], ",", 
   
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "0.7760673608998362`", ",", "0.21286038655103806`", ",", 
         "0.07540734168995307`", ",", "0.03507446181097437`", ",", 
         "0.8179157793816181`", ",", "0.8128850899870504`", ",", 
         "0.5558869784614421`", ",", "0.9990541764591717`", ",", 
         "0.4523639219011851`", ",", "0.8919360647099125`", ",", 
         "0.2275612337864943`", ",", "0.2198628717550956`", ",", 
         "0.061156219228647946`", ",", "0.04389696007030356`", ",", 
         "0.07129273223371611`", ",", "0.2443525463631206`", ",", 
         "0.4944980972901704`", ",", "0.7494619360065448`", ",", 
         "0.6325237390771286`", ",", "0.8309036426005783`", ",", 
         "0.27981734267209923`", ",", "0.10688184212539789`", ",", 
         "0.588266240003064`", ",", "0.9430513596725054`"}], "}"}], ",", 
       "0.503749981772263`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.8940214555743599`", ",", "0.512858898313111`", ",", 
         "0.907976897861531`", ",", "0.6858342023906449`", ",", 
         "0.0811363655873094`", ",", "0.9569719198516689`", ",", 
         "0.9089227214023593`", ",", "0.2334702804894598`", ",", 
         "0.1892003008773969`", ",", "0.7294106860651746`", ",", 
         "0.6890598496472636`", ",", "0.17231406126081186`", ",", 
         "0.14530334080709334`", ",", "0.6581179538314584`", ",", 
         "0.4447073032841431`", ",", "0.6778159639706415`", ",", 
         "0.3958414048005486`", ",", "0.025594214754329984`", ",", 
         "0.6138036606835648`", ",", "0.39799862129854224`", ",", 
         "0.28895956267515066`", ",", "0.4373279747512659`", ",", 
         "0.6707523010110594`", ",", "0.8942486395262792`", ",", 
         "0.39493810710079086`", ",", "0.9244690764381549`", ",", 
         "0.7627754031495284`", ",", "0.20841443713563432`", ",", 
         "0.31380174151348145`", ",", "0.967497156586486`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.8538526817471691`", ",", "0.9749441566461745`", ",", 
         "0.12460144063608457`", ",", "0.23808647052131143`", ",", 
         "0.16479283209990542`", ",", "0.8026300953853627`", ",", 
         "0.9792980998289912`", ",", "0.5799685166898529`", ",", 
         "0.7200855288157624`", ",", "0.12481413141472121`", ",", 
         "0.5834566950284427`", ",", "0.554374301935523`", ",", 
         "0.10628186813219748`", ",", "0.726815510116179`", ",", 
         "0.29449713235329195`", ",", "0.11704632718425705`", ",", 
         "0.43552956712113805`", ",", "0.8325668705898998`", ",", 
         "0.8995590252525011`", ",", "0.19257725074610213`", ",", 
         "0.6727541639716097`", ",", "0.6241524334542654`", ",", 
         "0.5857572837390196`", ",", "0.2250800941596161`", ",", 
         "0.8189014822244406`", ",", "0.6492082768080909`", ",", 
         "0.46115584310293506`", ",", "0.9869936236383047`", ",", 
         "0.6541086501245352`", ",", "0.8465781814227282`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.4818577432739438`", ",", "0.40702510694845173`", ",", 
         "0.9340231213087729`", ",", "0.721764050008007`", ",", 
         "0.8984010482455012`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"3", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "4"}], "}"}]}], "}"}], ",", "0.8526508050129288`",
        ",", "0.8277412531765754`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "8.2351539051496`"}], ",", 
         RowBox[{"-", "5.24286854590974`"}], ",", 
         RowBox[{"-", "3.248545451650732`"}], ",", 
         RowBox[{"-", "3.684529294042566`"}], ",", 
         RowBox[{"-", "8.6095595615588`"}], ",", 
         RowBox[{"-", "9.66371947242266`"}], ",", 
         RowBox[{"-", "7.02986707426258`"}], ",", 
         RowBox[{"-", "11.104561383070566`"}], ",", 
         RowBox[{"-", "5.772496835348631`"}], ",", 
         RowBox[{"-", "10.245516927380105`"}], ",", 
         RowBox[{"-", "7.265949415723284`"}], ",", 
         RowBox[{"-", "7.6613697267795295`"}], ",", 
         RowBox[{"-", "2.4480551420388004`"}], ",", 
         RowBox[{"-", "2.213385176118063`"}], ",", 
         RowBox[{"-", "1.8592694584274723`"}], ",", 
         RowBox[{"-", "1.511202634719191`"}], ",", 
         RowBox[{"-", "3.5328591408465346`"}], ",", 
         RowBox[{"-", "4.2985298716713345`"}], ",", 
         RowBox[{"-", "7.718542904758503`"}], ",", 
         RowBox[{"-", "8.275349852652582`"}], ",", 
         RowBox[{"-", "4.148687408752906`"}], ",", 
         RowBox[{"-", "3.1136740273775163`"}], ",", 
         RowBox[{"-", "7.580966852111094`"}], ",", 
         RowBox[{"-", "9.768081870838536`"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "2.475715626695476`"}], ",", 
         RowBox[{"-", "1.4083621433042501`"}], ",", 
         RowBox[{"-", "4.133200676449093`"}], ",", 
         RowBox[{"-", "4.089939110564428`"}], ",", 
         RowBox[{"-", "3.543398974448084`"}], ",", 
         RowBox[{"-", "2.9084672277852786`"}], ",", 
         RowBox[{"-", "1.8772862415357792`"}], ",", 
         RowBox[{"-", "4.467521770781281`"}], ",", 
         RowBox[{"-", "4.718990072915563`"}], ",", 
         RowBox[{"-", "3.7228884572519942`"}], ",", 
         RowBox[{"-", "1.6498708272919516`"}], ",", 
         RowBox[{"-", "1.1613289033785894`"}], ",", 
         RowBox[{"-", "2.8480933374929625`"}], ",", 
         RowBox[{"-", "2.8023911351395823`"}], ",", 
         RowBox[{"-", "2.0573036880626696`"}], ",", 
         RowBox[{"-", "2.2005204756271364`"}], ",", 
         RowBox[{"-", "1.6674583175460702`"}], ",", 
         RowBox[{"-", "2.95528818169943`"}], ",", 
         RowBox[{"-", "3.571024527747081`"}], ",", 
         RowBox[{"-", "2.6763170593206773`"}], ",", 
         RowBox[{"-", "2.6549913080299534`"}], ",", 
         RowBox[{"-", "1.8026887402509977`"}], ",", 
         RowBox[{"-", "4.371209720069445`"}], ",", 
         RowBox[{"-", "4.510095733074388`"}], ",", 
         RowBox[{"-", "3.677334553764771`"}], ",", 
         RowBox[{"-", "3.093129880843021`"}], ",", 
         RowBox[{"-", "2.2051847463822654`"}], ",", 
         RowBox[{"-", "5.049613096063245`"}], ",", 
         RowBox[{"-", "5.31279591012016`"}], ",", 
         RowBox[{"-", "4.304880382599416`"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "1.3242437269404945`"}], ",", 
         RowBox[{"-", "5.4448785934264325`"}], ",", 
         RowBox[{"-", "4.000971840837328`"}], ",", "0.02776007959717555`", 
         ",", 
         RowBox[{"-", "6.6605892593764215`"}], ",", 
         RowBox[{"-", "1.23193044956746`"}], ",", 
         RowBox[{"-", "4.376883456529983`"}], ",", 
         RowBox[{"-", "4.489869469569604`"}], ",", "0.023873507199042812`", 
         ",", 
         RowBox[{"-", "7.911979171981972`"}], ",", 
         RowBox[{"-", "1.1837836558768593`"}], ",", 
         RowBox[{"-", "2.8888214737924334`"}], ",", 
         RowBox[{"-", "2.756758063189739`"}], ",", "0.015496960965577442`", 
         ",", 
         RowBox[{"-", "4.357853794974164`"}], ",", 
         RowBox[{"-", "1.3742213140742905`"}], ",", 
         RowBox[{"-", "2.468965839388114`"}], ",", 
         RowBox[{"-", "3.627397321038995`"}], ",", "0.017273307468138887`", 
         ",", 
         RowBox[{"-", "5.753038987178439`"}], ",", 
         RowBox[{"-", "2.1332144090968486`"}], ",", 
         RowBox[{"-", "5.367742782587657`"}], ",", 
         RowBox[{"-", "3.700744210016458`"}], ",", "0.02814063995314598`", 
         ",", 
         RowBox[{"-", "4.875994480975529`"}], ",", 
         RowBox[{"-", "2.6386458751236606`"}], ",", 
         RowBox[{"-", "6.326811884892987`"}], ",", 
         RowBox[{"-", "4.190468603919913`"}], ",", "0.03119719572838604`", 
         ",", 
         RowBox[{"-", "5.155881594396944`"}]}], "}"}]}], "}"}]}], "}"}], ",", 
   
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "0.9949485398918281`", ",", "0.6039039158922093`", ",", 
         "0.7356044778286717`", ",", "0.3922116860554373`", ",", 
         "0.1623816693019283`", ",", "0.7043448906397082`", ",", 
         "0.5430272270825696`", ",", "0.7194575220838276`", ",", 
         "0.5382292358476629`", ",", "0.11858760690068854`", ",", 
         "0.31794713292295346`", ",", "0.900556039859387`", ",", 
         "0.889020959039572`", ",", "0.6574317637977535`", ",", 
         "0.3309535092846488`", ",", "0.2464473897348519`", ",", 
         "0.04244277761684375`", ",", "0.17557402052380966`", ",", 
         "0.9239284023361971`", ",", "0.312424268426079`", ",", 
         "0.32067872760883676`", ",", "0.27717297227830845`", ",", 
         "0.07127759732326834`", ",", "0.48468301524950363`"}], "}"}], ",", 
       "0.3257301877170087`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.6732690563860992`", ",", "0.33567311949459666`", ",", 
         "0.0924713291940663`", ",", "0.1633485184150804`", ",", 
         "0.9689241657463911`", ",", "0.7926458924120271`", ",", 
         "0.3730138071102386`", ",", "0.6251192825674176`", ",", 
         "0.8503365588457026`", ",", "0.47469875948907364`", ",", 
         "0.47245776725085153`", ",", "0.7360983235278455`", ",", 
         "0.19290479504794908`", ",", "0.14374525020442483`", ",", 
         "0.22601037751599967`", ",", "0.6936555459110019`", ",", 
         "0.01733077452413942`", ",", "0.21981684786822775`", ",", 
         "0.9135861090899207`", ",", "0.3729768183021651`", ",", 
         "0.7401578022458309`", ",", "0.1485392505449594`", ",", 
         "0.428903093840417`", ",", "0.04724663058515639`", ",", 
         "0.06688874585973173`", ",", "0.8128661310503628`", ",", 
         "0.3364317646463507`", ",", "0.883898112170076`", ",", 
         "0.09796458011334065`", ",", "0.020220238638335657`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.963417957536112`", ",", "0.2587788296026584`", ",", 
         "0.2476280212676381`", ",", "0.545521479149262`", ",", 
         "0.49096019028526056`", ",", "0.5226805060748129`", ",", 
         "0.05472322621968903`", ",", "0.40177622894483717`", ",", 
         "0.2649498127692609`", ",", "0.829024960163811`", ",", 
         "0.03739245169554961`", ",", "0.18195938107660944`", ",", 
         "0.3513637036793402`", ",", "0.4560481418616459`", ",", 
         "0.29723464944971867`", ",", "0.03342013053165004`", ",", 
         "0.9224606098389232`", ",", "0.4088015112764895`", ",", 
         "0.2303459035899869`", ",", "0.2205539994812873`", ",", 
         "0.5860288451925725`", ",", "0.5249033991064135`", ",", 
         "0.13238132347664627`", ",", "0.20033376084295165`", ",", 
         "0.6226108876564604`", ",", "0.2661245695037551`", ",", 
         "0.8847533022090082`", ",", "0.6548122816936897`", ",", 
         "0.1316506973711999`", ",", "0.7434440634289423`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.8300300759893191`", ",", "0.25303605274885244`", ",", 
         "0.8667008846019391`", ",", "0.9144191032651313`", ",", 
         "0.7926376242937695`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "1"}], "}"}]}], "}"}], ",", 
       "0.07107667167224298`", ",", "0.5153371809225988`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "3.2925920413933802`"}], ",", 
         RowBox[{"-", "2.708788805535268`"}], ",", 
         RowBox[{"-", "2.3379155836784045`"}], ",", 
         RowBox[{"-", "2.11450137903698`"}], ",", 
         RowBox[{"-", "1.0538459976971932`"}], ",", 
         RowBox[{"-", "2.75340384008288`"}], ",", 
         RowBox[{"-", "7.277578208826586`"}], ",", 
         RowBox[{"-", "8.055298148497924`"}], ",", 
         RowBox[{"-", "5.899090277046559`"}], ",", 
         RowBox[{"-", "6.340788576357879`"}], ",", 
         RowBox[{"-", "5.622391918934586`"}], ",", 
         RowBox[{"-", "12.990924204383953`"}], ",", "0", ",", "0", ",", "0", 
         ",", "0", ",", "0", ",", "0", ",", 
         RowBox[{"-", "13.552006734850563`"}], ",", 
         RowBox[{"-", "7.776576079214579`"}], ",", 
         RowBox[{"-", "5.559454755033888`"}], ",", 
         RowBox[{"-", "7.826956744652232`"}], ",", 
         RowBox[{"-", "4.690786131166073`"}], ",", 
         RowBox[{"-", "9.272581740865038`"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "3.714747456339031`"}], ",", 
         RowBox[{"-", "0.9242328053639134`"}], ",", 
         RowBox[{"-", "2.787451527172614`"}], ",", 
         RowBox[{"-", "4.401740365145339`"}], ",", 
         RowBox[{"-", "4.320110057849229`"}], ",", 
         RowBox[{"-", "2.77461778540036`"}], ",", 
         RowBox[{"-", "0.5916832029046232`"}], ",", 
         RowBox[{"-", "1.952969928950292`"}], ",", 
         RowBox[{"-", "2.83091948764928`"}], ",", 
         RowBox[{"-", "2.944602717179436`"}], ",", 
         RowBox[{"-", "2.7672331396623777`"}], ",", 
         RowBox[{"-", "0.5644910211057556`"}], ",", 
         RowBox[{"-", "1.7984047529931553`"}], ",", 
         RowBox[{"-", "2.7379040949407285`"}], ",", 
         RowBox[{"-", "2.826261105938511`"}], ",", 
         RowBox[{"-", "2.6455824006259343`"}], ",", 
         RowBox[{"-", "0.46232238377302537`"}], ",", 
         RowBox[{"-", "1.8146450994076986`"}], ",", 
         RowBox[{"-", "2.823341639515632`"}], ",", 
         RowBox[{"-", "2.705771429685319`"}], ",", 
         RowBox[{"-", "2.114858749703847`"}], ",", 
         RowBox[{"-", "0.37853089295773423`"}], ",", 
         RowBox[{"-", "1.7310300142127817`"}], ",", 
         RowBox[{"-", "2.2537873052595168`"}], ",", 
         RowBox[{"-", "2.266715930076895`"}], ",", 
         RowBox[{"-", "4.494722044015588`"}], ",", 
         RowBox[{"-", "0.7288457327677051`"}], ",", 
         RowBox[{"-", "3.2677407246024246`"}], ",", 
         RowBox[{"-", "4.640212774865541`"}], ",", 
         RowBox[{"-", "4.5516138238159005`"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "2.1099206684436336`"}], ",", 
         RowBox[{"-", "6.649839594279099`"}], ",", 
         RowBox[{"-", "7.582198387778462`"}], ",", 
         RowBox[{"-", "1.4796019515491885`"}], ",", "0.09233657588666995`", 
         ",", 
         RowBox[{"-", "1.3124428191828827`"}], ",", 
         RowBox[{"-", "7.130646385912496`"}], ",", 
         RowBox[{"-", "4.7977051719349895`"}], ",", 
         RowBox[{"-", "1.9395737235328698`"}], ",", "0.08605714583117073`", 
         ",", 
         RowBox[{"-", "1.008137095562813`"}], ",", 
         RowBox[{"-", "4.640299624415584`"}], ",", 
         RowBox[{"-", "4.003488734684642`"}], ",", 
         RowBox[{"-", "1.3293815313486306`"}], ",", "0.06153907141059933`", 
         ",", 
         RowBox[{"-", "1.162162866802455`"}], ",", 
         RowBox[{"-", "4.263609941470951`"}], ",", 
         RowBox[{"-", "4.1657388309423835`"}], ",", 
         RowBox[{"-", "0.8897436705628725`"}], ",", "0.06453858473014032`", 
         ",", 
         RowBox[{"-", "0.7515020698506626`"}], ",", 
         RowBox[{"-", "3.8822320245839586`"}], ",", 
         RowBox[{"-", "2.6393719817650836`"}], ",", 
         RowBox[{"-", "1.1180865744531396`"}], ",", "0.046690675361009494`", 
         ",", 
         RowBox[{"-", "1.28005957171267`"}], ",", 
         RowBox[{"-", "7.3437046394388465`"}], ",", 
         RowBox[{"-", "4.320488600055249`"}], ",", 
         RowBox[{"-", "2.258785743238103`"}], ",", "0.08639805412091245`"}], 
        "}"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "0.4583709614034854`", ",", "0.4954029748440509`", ",", 
         "0.03765654114059294`", ",", "0.5928765710836756`", ",", 
         "0.04956945012699587`", ",", "0.26505707125406397`", ",", 
         "0.8171025416593056`", ",", "0.006847725891103089`", ",", 
         "0.5246660510205824`", ",", "0.1326757477774177`", ",", 
         "0.616768780816354`", ",", "0.38423683823464266`", ",", 
         "0.25854148151682727`", ",", "0.24792244556840953`", ",", 
         "0.9619564991226643`", ",", "0.2525861408634428`", ",", 
         "0.515097418087885`", ",", "0.4178923695790904`", ",", 
         "0.7089204463738119`", ",", "0.3858852562615038`", ",", 
         "0.6006783148227537`", ",", "0.6252547452853209`", ",", 
         "0.6378437747015689`", ",", "0.870548075338905`"}], "}"}], ",", 
       "0.14230735341926834`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.12985177044127`", ",", "0.600187233560976`", ",", 
         "0.2776715042552294`", ",", "0.09273790329227245`", ",", 
         "0.8647946991872061`", ",", "0.7830846919016704`", ",", 
         "0.2708237783641263`", ",", "0.5680718522716901`", ",", 
         "0.7321189514097883`", ",", "0.16631591108531638`", ",", 
         "0.8865869401294836`", ",", "0.30953037075486284`", ",", 
         "0.48419650584137885`", ",", "0.204359411962652`", ",", 
         "0.6340007992660408`", ",", "0.7944329526669779`", ",", 
         "0.06630413626228845`", ",", "0.49543896558884004`", ",", 
         "0.24811554300453706`", ",", "0.19375463784422417`", ",", 
         "0.4410493909769676`", ",", "0.8575951908872711`", ",", 
         "0.3775674676656321`", ",", "0.05144728442495584`", ",", 
         "0.3111976205356976`", ",", "0.257407957326295`", ",", 
         "0.09989596341040269`", ",", "0.9587093811326833`", ",", 
         "0.4464029213484915`", ",", "0.47432326542462466`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.8290721850462764`", ",", "0.3906375288609933`", ",", 
         "0.7142839699387031`", ",", "0.30800735433930826`", ",", 
         "0.9424852449167928`", ",", "0.08110715810613045`", ",", 
         "0.2300874640973243`", ",", "0.10364794237665625`", ",", 
         "0.30848444565075195`", ",", "0.28667420543915256`", ",", 
         "0.16378332783503585`", ",", "0.6082089767878163`", ",", 
         "0.06036890264621489`", ",", "0.0929195675949284`", ",", 
         "0.7227339368580683`", ",", "0.7506137859005452`", ",", 
         "0.6828014349805828`", ",", "0.04147228316997257`", ",", 
         "0.4115363163223707`", ",", "0.4932058285742501`", ",", 
         "0.5829054715701801`", ",", "0.08276290203728917`", ",", 
         "0.9651333949738792`", ",", "0.018882563149625463`", ",", 
         "0.7538332865239037`", ",", "0.6921253731762959`", ",", 
         "0.250849425035176`", ",", "0.7108752088103172`", ",", 
         "0.8113480416071109`", ",", "0.6110182150701654`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.02076196093785168`", ",", "0.607227266433661`", ",", 
         "0.502863595956359`", ",", "0.32434400963101284`", ",", 
         "0.8569786331028159`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"3", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "2"}], "}"}]}], "}"}], ",", "0.9990182896458447`",
        ",", "0.4424946933101441`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "3.326014647603764`"}], ",", 
         RowBox[{"-", "2.3101447241506987`"}], ",", 
         RowBox[{"-", "1.553860028105874`"}], ",", 
         RowBox[{"-", "2.3680721831030858`"}], ",", 
         RowBox[{"-", "2.054497702212095`"}], ",", 
         RowBox[{"-", "2.716700169809365`"}], ",", 
         RowBox[{"-", "4.02674364154379`"}], ",", 
         RowBox[{"-", "1.0964410736335546`"}], ",", 
         RowBox[{"-", "2.3755191737050994`"}], ",", 
         RowBox[{"-", "1.7498159056633007`"}], ",", 
         RowBox[{"-", "2.428543409272995`"}], ",", 
         RowBox[{"-", "2.3292378825670013`"}], ",", 
         RowBox[{"-", "0.7867835718516895`"}], ",", 
         RowBox[{"-", "0.6431432104606646`"}], ",", 
         RowBox[{"-", "1.904068199275767`"}], ",", 
         RowBox[{"-", "0.8351675650005487`"}], ",", 
         RowBox[{"-", "0.6331426517281226`"}], ",", 
         RowBox[{"-", "0.8663982844693284`"}], ",", 
         RowBox[{"-", "4.02449349339608`"}], ",", 
         RowBox[{"-", "1.8271030296063846`"}], ",", 
         RowBox[{"-", "2.3809022222372156`"}], ",", 
         RowBox[{"-", "2.903786113524039`"}], ",", 
         RowBox[{"-", "2.8577482183688474`"}], ",", 
         RowBox[{"-", "4.877558211860029`"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "0.055144605705817314`"}], ",", 
         RowBox[{"-", "1.8919846219192102`"}], ",", 
         RowBox[{"-", "1.8445538956173204`"}], ",", 
         RowBox[{"-", "0.9844583296897559`"}], ",", 
         RowBox[{"-", "3.025379566262355`"}], ",", 
         RowBox[{"-", "0.03894418951569587`"}], ",", 
         RowBox[{"-", "1.0900425437565373`"}], ",", 
         RowBox[{"-", "1.0341769811065293`"}], ",", 
         RowBox[{"-", "0.49057513351312637`"}], ",", 
         RowBox[{"-", "1.6725671635669825`"}], ",", 
         RowBox[{"-", "0.047079003685661105`"}], ",", 
         RowBox[{"-", "1.0239798203595532`"}], ",", 
         RowBox[{"-", "1.4320979643411804`"}], ",", 
         RowBox[{"-", "0.7472362214448056`"}], ",", 
         RowBox[{"-", "2.300576974353567`"}], ",", 
         RowBox[{"-", "0.05002366783866115`"}], ",", 
         RowBox[{"-", "1.5535021319152191`"}], ",", 
         RowBox[{"-", "1.5325872884463556`"}], ",", 
         RowBox[{"-", "0.7326972867567958`"}], ",", 
         RowBox[{"-", "2.432818408463879`"}], ",", 
         RowBox[{"-", "0.03805595225842218`"}], ",", 
         RowBox[{"-", "1.314285292755895`"}], ",", 
         RowBox[{"-", "1.3135521266021555`"}], ",", 
         RowBox[{"-", "0.7200649621124237`"}], ",", 
         RowBox[{"-", "2.220156111440134`"}], ",", 
         RowBox[{"-", "0.053105983547238625`"}], ",", 
         RowBox[{"-", "1.81713562351745`"}], ",", 
         RowBox[{"-", "1.7152165467414757`"}], ",", 
         RowBox[{"-", "0.7738319641459201`"}], ",", 
         RowBox[{"-", "2.879677543547081`"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "2.7723398865118964`"}], ",", 
         RowBox[{"-", "1.6118160803552264`"}], ",", 
         RowBox[{"-", "0.7168749976083704`"}], ",", 
         RowBox[{"-", "1.9872624479245389`"}], ",", 
         RowBox[{"-", "0.5268982083522927`"}], ",", 
         RowBox[{"-", "1.3581170951456725`"}], ",", 
         RowBox[{"-", "0.9143283955535463`"}], ",", 
         RowBox[{"-", "0.6187494442236423`"}], ",", 
         RowBox[{"-", "1.389064814026148`"}], ",", 
         RowBox[{"-", "0.6088621124039694`"}], ",", 
         RowBox[{"-", "2.1148920138180882`"}], ",", 
         RowBox[{"-", "1.9864672046695375`"}], ",", 
         RowBox[{"-", "0.3893185779299335`"}], ",", 
         RowBox[{"-", "1.4424301069966672`"}], ",", 
         RowBox[{"-", "0.33036989767466923`"}], ",", 
         RowBox[{"-", "1.5096588126117232`"}], ",", 
         RowBox[{"-", "0.897693895544025`"}], ",", 
         RowBox[{"-", "0.6098181593537128`"}], ",", 
         RowBox[{"-", "1.5669286626139471`"}], ",", 
         RowBox[{"-", "0.5735872202625435`"}], ",", 
         RowBox[{"-", "2.2355574460535483`"}], ",", 
         RowBox[{"-", "1.362457605079508`"}], ",", 
         RowBox[{"-", "0.4006850664675677`"}], ",", 
         RowBox[{"-", "1.4866777157898445`"}], ",", 
         RowBox[{"-", "0.3751133963624947`"}], ",", 
         RowBox[{"-", "2.3710268247223873`"}], ",", 
         RowBox[{"-", "1.4157747141572898`"}], ",", 
         RowBox[{"-", "0.4773557160881311`"}], ",", 
         RowBox[{"-", "1.8970061262290443`"}], ",", 
         RowBox[{"-", "0.46806709418141884`"}]}], "}"}]}], "}"}]}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "0.23142444203608445`", ",", "0.13424469624474755`", ",", 
         "0.24840450374529957`", ",", "0.7596932583295614`", ",", 
         "0.1899521588661119`", ",", "0.7227083799223769`", ",", 
         "0.7551986751710494`", ",", "0.1767877867593812`", ",", 
         "0.10718925682882272`", ",", "0.7575749849484977`", ",", 
         "0.736316112021424`", ",", "0.4229545002354775`", ",", 
         "0.41506388365252683`", ",", "0.5067255599133217`", ",", 
         "0.025440903211106803`", ",", "0.6116064586283665`", ",", 
         "0.8040456685823614`", ",", "0.48596359897547003`", ",", 
         "0.4182136367774459`", ",", "0.1087428626720075`", ",", 
         "0.47970165895134853`", ",", "0.6289849658726542`", ",", 
         "0.4191953471316011`", ",", "0.6662481693618634`"}], "}"}], ",", 
       "0.24827721691526405`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.4947402696279067`", ",", "0.17079084338630154`", ",", 
         "0.9065549110323021`", ",", "0.058325058049152174`", ",", 
         "0.7720318897055298`", ",", "0.4155921682152521`", ",", 
         "0.7297671242729209`", ",", "0.9511358012203295`", ",", 
         "0.014456904757032088`", ",", "0.679276056193828`", ",", 
         "0.3068126240374434`", ",", "0.5360719175678026`", ",", 
         "0.5077313448437104`", ",", "0.6538351529827212`", ",", 
         "0.6952061654090769`", ",", "0.7320262489854412`", ",", 
         "0.021767745868240342`", ",", "0.2356215162052754`", ",", 
         "0.5864633027370694`", ",", "0.2523245900340927`", ",", 
         "0.39278277999558614`", ",", "0.8164261690736743`", ",", 
         "0.920215133375206`", ",", "0.004047373118828635`", ",", 
         "0.8980425103676795`", ",", "0.6456353256873727`", ",", 
         "0.01366022234290393`", ",", "0.9457223150696764`", ",", 
         "0.12601062066214969`", ",", "0.23004315747212065`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.28389309806998303`", ",", "0.994586513849347`", ",", 
         "0.11155371590511759`", ",", "0.5507671012782925`", ",", 
         "0.9770804740325396`", ",", "0.4585145962815444`", ",", 
         "0.6038223710614072`", ",", "0.8969319482955713`", ",", 
         "0.28187430862346274`", ",", "0.7264883472961031`", ",", 
         "0.5820546251931669`", ",", "0.6613104320902959`", ",", 
         "0.6954110058863934`", ",", "0.47416375726201043`", ",", 
         "0.18927184519758075`", ",", "0.8448842630166217`", ",", 
         "0.7751958725111874`", ",", "0.4701163841431818`", ",", 
         "0.29122933482990127`", ",", "0.1992489373292489`", ",", 
         "0.7615356501682834`", ",", "0.5243940690735054`", ",", 
         "0.16521871416775158`", ",", "0.9692057798571282`", ",", 
         "0.47764255209830037`", ",", "0.5298075552241583`", ",", 
         "0.053664998262633996`", ",", "0.41843867857883565`", ",", 
         "0.5005620780657607`", ",", "0.07129295894261396`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.44984262720122675`", ",", "0.5215067302832643`", ",", 
         "0.218687769442298`", ",", "0.34480461164651083`", ",", 
         "0.8677880020080599`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"2", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "0"}], "}"}]}], "}"}], ",", "0.8601962981929685`",
        ",", "0.5232767635559047`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "3.7309139736847357`"}], ",", 
         RowBox[{"-", "3.0646329190512915`"}], ",", 
         RowBox[{"-", "3.7381703703073548`"}], ",", 
         RowBox[{"-", "5.427869131734488`"}], ",", 
         RowBox[{"-", "4.312357110379089`"}], ",", 
         RowBox[{"-", "4.363960327560873`"}], ",", 
         RowBox[{"-", "4.277255127290587`"}], ",", 
         RowBox[{"-", "2.241742441977869`"}], ",", 
         RowBox[{"-", "2.2721037258210877`"}], ",", 
         RowBox[{"-", "4.073911403919308`"}], ",", 
         RowBox[{"-", "4.543685921624725`"}], ",", 
         RowBox[{"-", "2.0189534535254188`"}], ",", 
         RowBox[{"-", "3.1357319635622014`"}], ",", 
         RowBox[{"-", "2.9036540898200283`"}], ",", 
         RowBox[{"-", "1.5831510536657902`"}], ",", 
         RowBox[{"-", "2.741805306826683`"}], ",", 
         RowBox[{"-", "3.671929377108841`"}], ",", 
         RowBox[{"-", "1.636562149360497`"}], ",", 
         RowBox[{"-", "1.5566484387418704`"}], ",", 
         RowBox[{"-", "0.9833518659444305`"}], ",", 
         RowBox[{"-", "1.5361518173229762`"}], ",", 
         RowBox[{"-", "1.296319839345871`"}], ",", 
         RowBox[{"-", "2.2460048077210057`"}], ",", 
         RowBox[{"-", "1.6519567994662974`"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "1.567837999040146`"}], ",", 
         RowBox[{"-", "1.1763458777868596`"}], ",", 
         RowBox[{"-", "0.983946106437853`"}], ",", 
         RowBox[{"-", "1.1453411233294408`"}], ",", 
         RowBox[{"-", "3.32482318859021`"}], ",", 
         RowBox[{"-", "1.107146964266878`"}], ",", 
         RowBox[{"-", "0.9116943595054823`"}], ",", 
         RowBox[{"-", "0.7148388414577103`"}], ",", 
         RowBox[{"-", "0.8319378060564322`"}], ",", 
         RowBox[{"-", "2.2690600583010023`"}], ",", 
         RowBox[{"-", "1.0188288515916764`"}], ",", 
         RowBox[{"-", "0.9338832525319478`"}], ",", 
         RowBox[{"-", "0.6867305057391562`"}], ",", 
         RowBox[{"-", "0.7011936437416162`"}], ",", 
         RowBox[{"-", "2.459040797542957`"}], ",", 
         RowBox[{"-", "1.667838197907497`"}], ",", 
         RowBox[{"-", "1.5426107640406317`"}], ",", 
         RowBox[{"-", "1.1997910118298232`"}], ",", 
         RowBox[{"-", "1.3981835009773567`"}], ",", 
         RowBox[{"-", "4.291478733531954`"}], ",", 
         RowBox[{"-", "1.5705390167896234`"}], ",", 
         RowBox[{"-", "1.4792804507082886`"}], ",", 
         RowBox[{"-", "1.0529234042641602`"}], ",", 
         RowBox[{"-", "1.177465583244028`"}], ",", 
         RowBox[{"-", "3.5275731403804986`"}], ",", 
         RowBox[{"-", "1.2026160104836483`"}], ",", 
         RowBox[{"-", "1.3372240299567044`"}], ",", 
         RowBox[{"-", "0.8588048018848706`"}], ",", 
         RowBox[{"-", "0.8289493786445105`"}], ",", 
         RowBox[{"-", "3.0344246946610784`"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "2.0598920396856952`"}], ",", 
         RowBox[{"-", "3.0810963876005655`"}], ",", "0.11062184970854827`", 
         ",", 
         RowBox[{"-", "1.8527269298993447`"}], ",", 
         RowBox[{"-", "0.5868089369579571`"}], ",", 
         RowBox[{"-", "1.5088420815615264`"}], ",", 
         RowBox[{"-", "2.408348384974518`"}], ",", "0.09868480245905409`", 
         ",", 
         RowBox[{"-", "1.5862964250613956`"}], ",", 
         RowBox[{"-", "0.7436557562172694`"}], ",", 
         RowBox[{"-", "1.5629154186859147`"}], ",", 
         RowBox[{"-", "2.114445071791601`"}], ",", "0.1024073894501126`", ",", 
         RowBox[{"-", "1.9133502526009059`"}], ",", 
         RowBox[{"-", "0.41810374492387814`"}], ",", 
         RowBox[{"-", "2.145536705526832`"}], ",", 
         RowBox[{"-", "3.430995267045652`"}], ",", "0.14497414125086056`", 
         ",", 
         RowBox[{"-", "2.2058618913284977`"}], ",", 
         RowBox[{"-", "0.713620003271434`"}], ",", 
         RowBox[{"-", "2.289695637507484`"}], ",", 
         RowBox[{"-", "3.5353980180072795`"}], ",", "0.13636876398074346`", 
         ",", 
         RowBox[{"-", "2.0354746772132284`"}], ",", 
         RowBox[{"-", "1.0164086001465458`"}], ",", 
         RowBox[{"-", "1.7818196335449936`"}], ",", 
         RowBox[{"-", "2.8586509169976786`"}], ",", "0.11712328803788383`", 
         ",", 
         RowBox[{"-", "2.2881430632891266`"}], ",", 
         RowBox[{"-", "0.6218308358651156`"}]}], "}"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "0.8706408543845003`", ",", "0.6785161568104792`", ",", 
         "0.015312035176346831`", ",", "0.7480808910447173`", ",", 
         "0.40052447024131854`", ",", "0.3872868219805779`", ",", 
         "0.816063097847098`", ",", "0.9865452408764339`", ",", 
         "0.8761304011678132`", ",", "0.22206810781282632`", ",", 
         "0.8468573179899697`", ",", "0.5089026887781336`", ",", 
         "0.3463228459436548`", ",", "0.16840310955019233`", ",", 
         "0.428418639411134`", ",", "0.008340610712372878`", ",", 
         "0.27502988700104086`", ",", "0.7185604823489655`", ",", 
         "0.9069119091278697`", ",", "0.7896528412700748`", ",", 
         "0.93022527535453`", ",", "0.8507724803409057`", ",", 
         "0.04671561093490122`", ",", "0.2663760777141702`"}], "}"}], ",", 
       "0.059584420970029695`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.17225632353042647`", ",", "0.03140357575855438`", ",", 
         "0.5182951866694528`", ",", "0.6590599507287112`", ",", 
         "0.7849695015498486`", ",", "0.21534047791145644`", ",", 
         "0.5317499457930189`", ",", "0.782929549560898`", ",", 
         "0.5629013937370223`", ",", "0.3684831599214868`", ",", 
         "0.02284725701488533`", ",", "0.4366067036172432`", ",", 
         "0.3944982841868299`", ",", "0.9400645205103527`", ",", 
         "0.01450664630251245`", ",", "0.1615768166162023`", ",", 
         "0.6759378018378644`", ",", "0.03315261138248306`", ",", 
         "0.22485380503243757`", ",", "0.23135154126167226`", ",", 
         "0.8251653214969588`", ",", "0.9864370004475819`", ",", 
         "0.9584777273182673`", ",", "0.17176712029164257`", ",", 
         "0.6529089979665323`", ",", "0.9550334246890274`", ",", 
         "0.44018254064881446`", ",", "0.5127071695629314`", ",", 
         "0.8679394964166838`", ",", "0.739692946777571`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.9084325948557955`", ",", "0.7297776200020334`", ",", 
         "0.30503810267966147`", ",", "0.37120978685608425`", ",", 
         "0.8855853378409102`", ",", "0.29317091638479026`", ",", 
         "0.9105398184928315`", ",", "0.4311452663457315`", ",", 
         "0.8710786915383978`", ",", "0.13159409976858794`", ",", 
         "0.23460201665496713`", ",", "0.3979926549632485`", ",", 
         "0.6462248865059602`", ",", "0.9002425585069157`", ",", 
         "0.40943669515800835`", ",", "0.4115556545156666`", ",", 
         "0.6877471591876928`", ",", "0.7284754382152732`", ",", 
         "0.7565276971914761`", ",", "0.45652222982663915`", ",", 
         "0.24756461853887837`", ",", "0.21576826865234172`", ",", 
         "0.8885882007747924`", ",", "0.7168292830490681`", ",", 
         "0.3391320236830828`", ",", "0.48599064865030833`", ",", 
         "0.5835500980951309`", ",", "0.3456194961929839`", ",", 
         "0.4535466858421726`", ",", "0.19281973226551807`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.6730102796022993`", ",", "0.9144742298472524`", ",", 
         "0.5824679943037748`", ",", "0.061225632496930145`", ",", 
         "0.4384082629473322`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "4"}], "}"}]}], "}"}], ",", "0.5164815748840039`",
        ",", "0.9362431077978146`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "7.586235753201965`"}], ",", 
         RowBox[{"-", "6.386771325752662`"}], ",", 
         RowBox[{"-", "2.8996017114419272`"}], ",", 
         RowBox[{"-", "6.28321478787645`"}], ",", 
         RowBox[{"-", "5.784307954562273`"}], ",", 
         RowBox[{"-", "4.756889141571307`"}], ",", 
         RowBox[{"-", "2.007106730251545`"}], ",", 
         RowBox[{"-", "1.852267179894075`"}], ",", 
         RowBox[{"-", "1.3544364216689457`"}], ",", 
         RowBox[{"-", "0.823879059749104`"}], ",", 
         RowBox[{"-", "1.8510862996798667`"}], ",", 
         RowBox[{"-", "1.2952379976216448`"}], ",", 
         RowBox[{"-", "1.108168858974675`"}], ",", 
         RowBox[{"-", "0.6500986957194149`"}], ",", 
         RowBox[{"-", "0.9584696646973478`"}], ",", 
         RowBox[{"-", "0.6569782712979936`"}], ",", 
         RowBox[{"-", "1.122500293518521`"}], ",", 
         RowBox[{"-", "1.303807815908603`"}], ",", 
         RowBox[{"-", "3.558712373732794`"}], ",", 
         RowBox[{"-", "3.0287426302015756`"}], ",", 
         RowBox[{"-", "3.205059560453855`"}], ",", 
         RowBox[{"-", "3.5185948430564324`"}], ",", 
         RowBox[{"-", "2.1024516650352956`"}], ",", 
         RowBox[{"-", "2.029141335260166`"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "2.412084455262805`"}], ",", 
         RowBox[{"-", "4.131875005247608`"}], ",", 
         RowBox[{"-", "2.7397441633894357`"}], ",", 
         RowBox[{"-", "0.28908132976337353`"}], ",", 
         RowBox[{"-", "1.4183250901076674`"}], ",", 
         RowBox[{"-", "1.7555750858147696`"}], ",", 
         RowBox[{"-", "2.8801152146732956`"}], ",", 
         RowBox[{"-", "1.9055397699020244`"}], ",", 
         RowBox[{"-", "0.19578671358870225`"}], ",", 
         RowBox[{"-", "1.219748182254069`"}], ",", 
         RowBox[{"-", "1.3303169527212357`"}], ",", 
         RowBox[{"-", "2.622903726617656`"}], ",", 
         RowBox[{"-", "1.4027597077956395`"}], ",", 
         RowBox[{"-", "0.17274389636574067`"}], ",", 
         RowBox[{"-", "0.983232904795598`"}], ",", 
         RowBox[{"-", "2.0458611595135503`"}], ",", 
         RowBox[{"-", "3.099323875632523`"}], ",", 
         RowBox[{"-", "1.9418171176318593`"}], ",", 
         RowBox[{"-", "0.2084950623974443`"}], ",", 
         RowBox[{"-", "1.177892690583048`"}], ",", 
         RowBox[{"-", "1.2929767214135417`"}], ",", 
         RowBox[{"-", "2.1910263235814202`"}], ",", 
         RowBox[{"-", "1.3994203548130528`"}], ",", 
         RowBox[{"-", "0.14082302832386837`"}], ",", 
         RowBox[{"-", "0.7516277201315922`"}], ",", 
         RowBox[{"-", "1.3012775655018125`"}], ",", 
         RowBox[{"-", "2.144868007786647`"}], ",", 
         RowBox[{"-", "1.435354437155385`"}], ",", 
         RowBox[{"-", "0.14754907013677887`"}], ",", 
         RowBox[{"-", "0.7502184254344012`"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "2.1397092952750127`"}], ",", 
         RowBox[{"-", "0.9878657915853277`"}], ",", 
         RowBox[{"-", "1.0316755447697656`"}], ",", 
         RowBox[{"-", "1.331406262100865`"}], ",", 
         RowBox[{"-", "2.808639999074948`"}], ",", 
         RowBox[{"-", "2.5735765984313805`"}], ",", 
         RowBox[{"-", "0.8100857214716622`"}], ",", 
         RowBox[{"-", "1.0285046638380109`"}], ",", 
         RowBox[{"-", "1.2455072553781852`"}], ",", 
         RowBox[{"-", "2.8629736750523525`"}], ",", 
         RowBox[{"-", "2.254362787888827`"}], ",", 
         RowBox[{"-", "0.3183207011173651`"}], ",", 
         RowBox[{"-", "1.075802780640722`"}], ",", 
         RowBox[{"-", "0.5187194259320302`"}], ",", 
         RowBox[{"-", "1.725946195631258`"}], ",", 
         RowBox[{"-", "1.6277193705213828`"}], ",", 
         RowBox[{"-", "0.6832397743501255`"}], ",", 
         RowBox[{"-", "1.107993972021777`"}], ",", 
         RowBox[{"-", "1.202741658243796`"}], ",", 
         RowBox[{"-", "2.6117874368004785`"}], ",", 
         RowBox[{"-", "2.1190220894591683`"}], ",", 
         RowBox[{"-", "0.7569585703823417`"}], ",", 
         RowBox[{"-", "0.6028592818548422`"}], ",", 
         RowBox[{"-", "1.1968945619974065`"}], ",", 
         RowBox[{"-", "3.0639472845128397`"}], ",", 
         RowBox[{"-", "1.500116900918018`"}], ",", 
         RowBox[{"-", "0.7125647152415279`"}], ",", 
         RowBox[{"-", "0.6948017636958316`"}], ",", 
         RowBox[{"-", "1.0122970467479413`"}], ",", 
         RowBox[{"-", "3.0358105012450745`"}]}], "}"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "0.16098307399001446`", ",", "0.02897156778932386`", ",", 
         "0.10492592036833728`", ",", "0.24849594861012178`", ",", 
         "0.43250763577474133`", ",", "0.2724438705978478`", ",", 
         "0.6484036905416981`", ",", "0.0009313300712433987`", ",", 
         "0.21673936712239963`", ",", "0.3838556698230554`", ",", 
         "0.93157440749263`", ",", "0.6617993063881605`", ",", 
         "0.7307487184720913`", ",", "0.8003055717279245`", ",", 
         "0.585954911299646`", ",", "0.20825262054598798`", ",", 
         "0.5379289862065733`", ",", "0.12729529212562518`", ",", 
         "0.6714806814523937`", ",", "0.6257846262422132`", ",", 
         "0.4767033537096431`", ",", "0.6888870291782929`", ",", 
         "0.15499910656838978`", ",", "0.6895415184443986`"}], "}"}], ",", 
       "0.3157202797196286`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.6599154613889691`", ",", "0.0500731862000525`", ",", 
         "0.4410455698342768`", ",", "0.8832126439448873`", ",", 
         "0.3874715907911213`", ",", "0.4016694956583544`", ",", 
         "0.4401142397630334`", ",", "0.6664732768224877`", ",", 
         "0.003615920968065877`", ",", "0.47009508816572443`", ",", 
         "0.7783149333748728`", ",", "0.9357245583503964`", ",", 
         "0.20331034924014132`", ",", "0.8841401768660784`", ",", 
         "0.5700623128288848`", ",", "0.3977955721438231`", ",", 
         "0.07601505711451616`", ",", "0.2126594954136847`", ",", 
         "0.9442776865866717`", ",", "0.92109221843418`", ",", 
         "0.3871280279362232`", ",", "0.05766038884529492`", ",", 
         "0.2547361681422731`", ",", "0.6053719387145514`", ",", 
         "0.7272125665472541`", ",", "0.007587202645242416`", ",", 
         "0.8136905983079963`", ",", "0.7221592947696641`", ",", 
         "0.3397409757561328`", ",", "0.6059177069868881`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.37357635854496296`", ",", "0.05568601794717645`", ",", 
         "0.3361250547880669`", ",", "0.1358226188211636`", ",", 
         "0.5952614251700902`", ",", "0.11996145959678012`", ",", 
         "0.1328147055479256`", ",", "0.2516824419550852`", ",", 
         "0.02519911234120536`", ",", "0.7221658874529571`", ",", 
         "0.056799648433409435`", ",", "0.03902294654140051`", ",", 
         "0.0809214257545337`", ",", "0.801073669018777`", ",", 
         "0.6696716204971862`", ",", "0.9813625576961056`", ",", 
         "0.8261852576122606`", ",", "0.19570173030422564`", ",", 
         "0.9424590539499321`", ",", "0.9737753550508632`", ",", 
         "0.01249465930426427`", ",", "0.47354243553456155`", ",", 
         "0.6027180781937993`", ",", "0.36785764806397514`", ",", 
         "0.6389183007593013`", ",", "0.41785641758738507`", ",", 
         "0.26659302340573243`", ",", "0.23203502924281155`", ",", 
         "0.043656875589211136`", ",", "0.29789495799060495`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.13377831785780683`", ",", "0.9803525872877263`", ",", 
         "0.01845776324800578`", ",", "0.575729070537648`", ",", 
         "0.07697866942439739`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "4"}], "}"}]}], "}"}], ",", "0.9413296407463259`",
        ",", "0.9375363374934721`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "3.121445430418431`"}], ",", 
         RowBox[{"-", "2.2627194588184194`"}], ",", 
         RowBox[{"-", "3.3812581794112004`"}], ",", 
         RowBox[{"-", "4.916338717148209`"}], ",", 
         RowBox[{"-", "3.0187019697993365`"}], ",", 
         RowBox[{"-", "4.001602758851019`"}], ",", 
         RowBox[{"-", "2.7482855571813554`"}], ",", 
         RowBox[{"-", "1.256123719638893`"}], ",", 
         RowBox[{"-", "1.948340935287772`"}], ",", 
         RowBox[{"-", "1.9057489275252524`"}], ",", 
         RowBox[{"-", "4.098415335689772`"}], ",", 
         RowBox[{"-", "2.928963525698359`"}], ",", 
         RowBox[{"-", "1.407220765286893`"}], ",", 
         RowBox[{"-", "1.1558054755886134`"}], ",", 
         RowBox[{"-", "1.2852243293750585`"}], ",", 
         RowBox[{"-", "1.2615521464410193`"}], ",", 
         RowBox[{"-", "0.7910008793595769`"}], ",", 
         RowBox[{"-", "0.9560330226945059`"}], ",", 
         RowBox[{"-", "1.4190448107224083`"}], ",", 
         RowBox[{"-", "1.1867195043865988`"}], ",", 
         RowBox[{"-", "1.2811747419164288`"}], ",", 
         RowBox[{"-", "1.3114747368695008`"}], ",", 
         RowBox[{"-", "0.9499501455649685`"}], ",", 
         RowBox[{"-", "1.5241955558765197`"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "0.26111494867360546`"}], ",", 
         RowBox[{"-", "3.567251540155759`"}], ",", 
         RowBox[{"-", "0.035492840097877544`"}], ",", 
         RowBox[{"-", "2.1811209980617363`"}], ",", 
         RowBox[{"-", "0.25804471211384217`"}], ",", 
         RowBox[{"-", "0.17558761577762472`"}], ",", 
         RowBox[{"-", "2.582966006716771`"}], ",", 
         RowBox[{"-", "0.028725917181575526`"}], ",", 
         RowBox[{"-", "1.5778684110031318`"}], ",", 
         RowBox[{"-", "0.17960766441525536`"}], ",", 
         RowBox[{"-", "0.16184429893839658`"}], ",", 
         RowBox[{"-", "2.3551761604916077`"}], ",", 
         RowBox[{"-", "0.026103128470045846`"}], ",", 
         RowBox[{"-", "1.4668949889695442`"}], ",", 
         RowBox[{"-", "0.1617582503677487`"}], ",", 
         RowBox[{"-", "0.21432166433336292`"}], ",", 
         RowBox[{"-", "3.7567111605315935`"}], ",", 
         RowBox[{"-", "0.0457553499124949`"}], ",", 
         RowBox[{"-", "2.3109653506462307`"}], ",", 
         RowBox[{"-", "0.2626701117611285`"}], ",", 
         RowBox[{"-", "0.33488651160447097`"}], ",", 
         RowBox[{"-", "3.861037436738695`"}], ",", 
         RowBox[{"-", "0.031354506416666955`"}], ",", 
         RowBox[{"-", "2.368484307434502`"}], ",", 
         RowBox[{"-", "0.27109129665769915`"}], ",", 
         RowBox[{"-", "0.24015520400287604`"}], ",", 
         RowBox[{"-", "3.316825446154583`"}], ",", 
         RowBox[{"-", "0.03246334686399105`"}], ",", 
         RowBox[{"-", "2.0241432223301588`"}], ",", 
         RowBox[{"-", "0.23997973038227152`"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "2.7605356361870514`"}], ",", "0.06031729190430732`", 
         ",", 
         RowBox[{"-", "3.08661569041272`"}], ",", "0.07467200932146537`", ",", 
         RowBox[{"-", "0.5820827176128364`"}], ",", 
         RowBox[{"-", "2.486625425371175`"}], ",", "0.03350022127913373`", 
         ",", 
         RowBox[{"-", "1.9028925417972546`"}], ",", "0.07921587052230969`", 
         ",", 
         RowBox[{"-", "0.47253677323408366`"}], ",", 
         RowBox[{"-", "3.5090748100424918`"}], ",", "0.0541403982197599`", 
         ",", 
         RowBox[{"-", "2.9444133675568738`"}], ",", "0.10929195777452305`", 
         ",", 
         RowBox[{"-", "0.7534572620273452`"}], ",", 
         RowBox[{"-", "2.604440270255998`"}], ",", "0.059296651782132975`", 
         ",", 
         RowBox[{"-", "2.684733829113732`"}], ",", "0.0733884994615254`", ",", 
         RowBox[{"-", "0.6462095197205014`"}], ",", 
         RowBox[{"-", "2.9304586665762917`"}], ",", "0.06368385515251071`", 
         ",", 
         RowBox[{"-", "3.091898371620929`"}], ",", "0.09006166302120341`", 
         ",", 
         RowBox[{"-", "0.703260191272132`"}], ",", 
         RowBox[{"-", "2.974562680909729`"}], ",", "0.0453127345157666`", ",", 
         RowBox[{"-", "3.580026314230347`"}], ",", "0.11873068543749601`", 
         ",", 
         RowBox[{"-", "0.7426493269256792`"}]}], "}"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "0.7746554015188709`", ",", "0.40730704892721115`", ",", 
         "0.9599670830502203`", ",", "0.11135107988121147`", ",", 
         "0.5789536712146452`", ",", "0.464847994977279`", ",", 
         "0.9861917279993571`", ",", "0.0988564205769472`", ",", 
         "0.10541123568008375`", ",", "0.8621299167834797`", ",", 
         "0.6183340799353819`", ",", "0.4599381198176459`", ",", 
         "0.6875548180926987`", ",", "0.5955368933777473`", ",", 
         "0.38629905069257037`", ",", "0.41628124422843477`", ",", 
         "0.3896598601020937`", ",", "0.46175857551994043`", ",", 
         "0.40594646340484397`", ",", "0.39782348098042897`", ",", 
         "0.8139307895644458`", ",", "0.3847799060955431`", ",", 
         "0.46461682265851817`", ",", "0.4602871434869569`"}], "}"}], ",", 
       "0.03927538804557485`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.9774728571683319`", ",", "0.504649739608298`", ",", 
         "0.3489360636057454`", ",", "0.46032171683092954`", ",", 
         "0.5126248621910529`", ",", "0.5184580116089409`", ",", 
         "0.25007964302879826`", ",", "0.35491048115084584`", ",", 
         "0.6504949454075731`", ",", "0.900123931673559`", ",", 
         "0.7901415232111524`", ",", "0.6673556630581471`", ",", 
         "0.0549580520298259`", ",", "0.5138248809809886`", ",", 
         "0.3738602789827176`", ",", "0.27769580295605345`", ",", 
         "0.5931994765098855`", ",", "0.1078784175761446`", ",", 
         "0.9760367980022886`", ",", "0.46376501339160764`", ",", 
         "0.2084195704143424`", ",", "0.6432615949176265`", ",", 
         "0.5157496545153317`", ",", "0.4244896253460328`", ",", 
         "0.23094671324601052`", ",", "0.13861185530932854`", ",", 
         "0.1668135909095863`", ",", "0.9641679085151033`", ",", 
         "0.7183218510549576`", ",", "0.6201538437003877`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.9167339478807881`", ",", "0.6092574273642575`", ",", 
         "0.06782690564738446`", ",", "0.7200299120268288`", ",", 
         "0.12659242466963572`", ",", "0.9419017643061103`", ",", 
         "0.012868853617558565`", ",", "0.20620503104584018`", ",", 
         "0.7527321456869182`", ",", "0.6642059613500568`", ",", 
         "0.4196693771076731`", ",", "0.09832661346969558`", ",", 
         "0.7766953476846294`", ",", "0.20044094795844922`", ",", 
         "0.2112498066933307`", ",", "0.45506501855206916`", ",", 
         "0.2609456931692977`", ",", "0.7759513226124164`", ",", 
         "0.9803030934473203`", ",", "0.3164531632427406`", ",", 
         "0.09413210225971143`", ",", "0.8117834140973131`", ",", 
         "0.2619812423923626`", ",", "0.6962993195423529`", ",", 
         "0.17739815437892337`", ",", "0.20252598673305572`", ",", 
         "0.1941543367449781`", ",", "0.9762694075155242`", ",", 
         "0.05080572970928764`", ",", "0.26062422242694544`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.18128548312741954`", ",", "0.770064376469684`", ",", 
         "0.29807358402236955`", ",", "0.5964182610768886`", ",", 
         "0.7616161060197464`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"2", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "0"}], "}"}]}], "}"}], ",", "0.6717377629999883`",
        ",", "0.52137823633774`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "2.4339796479121873`"}], ",", 
         RowBox[{"-", "1.8129520521964981`"}], ",", 
         RowBox[{"-", "2.1207610540520063`"}], ",", 
         RowBox[{"-", "1.0044242896609306`"}], ",", 
         RowBox[{"-", "1.073661897145137`"}], ",", 
         RowBox[{"-", "1.1409991961134363`"}], ",", 
         RowBox[{"-", "6.506024349219867`"}], ",", 
         RowBox[{"-", "2.632959766930543`"}], ",", 
         RowBox[{"-", "2.5373484183789383`"}], ",", 
         RowBox[{"-", "6.022883157460575`"}], ",", 
         RowBox[{"-", "3.664989445067576`"}], ",", 
         RowBox[{"-", "3.771036512240511`"}], ",", 
         RowBox[{"-", "6.87522697948077`"}], ",", 
         RowBox[{"-", "6.3529697708519715`"}], ",", 
         RowBox[{"-", "4.4345690043110855`"}], ",", 
         RowBox[{"-", "5.0709111508519165`"}], ",", 
         RowBox[{"-", "3.6782468833160857`"}], ",", 
         RowBox[{"-", "4.785773991387746`"}], ",", "0", ",", "0", ",", "0", 
         ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "0.3284651749968726`"}], ",", 
         RowBox[{"-", "2.654068673872814`"}], ",", 
         RowBox[{"-", "1.1082169243901443`"}], ",", 
         RowBox[{"-", "2.870915878303254`"}], ",", 
         RowBox[{"-", "3.626067451260602`"}], ",", 
         RowBox[{"-", "0.1567937626026807`"}], ",", 
         RowBox[{"-", "1.861267464153133`"}], ",", 
         RowBox[{"-", "0.6694735975152982`"}], ",", 
         RowBox[{"-", "1.7983614761745659`"}], ",", 
         RowBox[{"-", "2.2939558877653408`"}], ",", 
         RowBox[{"-", "0.1920331008859541`"}], ",", 
         RowBox[{"-", "1.6951811659419804`"}], ",", 
         RowBox[{"-", "0.5533265582217501`"}], ",", 
         RowBox[{"-", "1.6379892612299358`"}], ",", 
         RowBox[{"-", "2.081054462923592`"}], ",", 
         RowBox[{"-", "0.3138253220713853`"}], ",", 
         RowBox[{"-", "1.946786244628869`"}], ",", 
         RowBox[{"-", "0.6286490131484974`"}], ",", 
         RowBox[{"-", "2.065979180475529`"}], ",", 
         RowBox[{"-", "2.6074607837636474`"}], ",", 
         RowBox[{"-", "0.27080170334332004`"}], ",", 
         RowBox[{"-", "1.3420246594896525`"}], ",", 
         RowBox[{"-", "0.5785869641587487`"}], ",", 
         RowBox[{"-", "1.6820976907749179`"}], ",", 
         RowBox[{"-", "2.121322030260039`"}], ",", 
         RowBox[{"-", "0.26896367510994323`"}], ",", 
         RowBox[{"-", "1.662414005302577`"}], ",", 
         RowBox[{"-", "0.5042183106040445`"}], ",", 
         RowBox[{"-", "1.7098800068355982`"}], ",", 
         RowBox[{"-", "2.1746959986350265`"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "5.314074418687811`"}], ",", 
         RowBox[{"-", "2.0432822072886596`"}], ",", 
         RowBox[{"-", "2.6821858488438695`"}], ",", "0.13309968048802684`", 
         ",", "0.2607690135366641`", ",", 
         RowBox[{"-", "3.9822028307061776`"}], ",", 
         RowBox[{"-", "1.4073409360473565`"}], ",", 
         RowBox[{"-", "1.7256485066140888`"}], ",", "0.09464328689586123`", 
         ",", "0.1653758677678292`", ",", 
         RowBox[{"-", "3.9883035113609235`"}], ",", 
         RowBox[{"-", "1.028722517056728`"}], ",", 
         RowBox[{"-", "1.4712304120407709`"}], ",", "0.08698052025058872`", 
         ",", "0.17236728715308738`", ",", 
         RowBox[{"-", "4.211047527713825`"}], ",", 
         RowBox[{"-", "1.75944250012744`"}], ",", 
         RowBox[{"-", "2.3776159353902484`"}], ",", "0.09708799770415041`", 
         ",", "0.2111408600282601`", ",", 
         RowBox[{"-", "3.8811977384575154`"}], ",", 
         RowBox[{"-", "1.2834306610714967`"}], ",", 
         RowBox[{"-", "1.7660971796747007`"}], ",", "0.09290892037971962`", 
         ",", "0.19205431935464853`", ",", 
         RowBox[{"-", "3.9929932109583617`"}], ",", 
         RowBox[{"-", "1.5104470140093305`"}], ",", 
         RowBox[{"-", "1.7283066861637661`"}], ",", "0.09341977718421106`", 
         ",", "0.17849165936619477`"}], "}"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "0.39597731311843937`", ",", "0.5503662993264157`", ",", 
         "0.21667274444791923`", ",", "0.26043254316844233`", ",", 
         "0.6200259905060229`", ",", "0.5700632058790955`", ",", 
         "0.9002195812051786`", ",", "0.16630044090873092`", ",", 
         "0.8082425764087098`", ",", "0.30808196348673295`", ",", 
         "0.20392026166282573`", ",", "0.9889022865298076`", ",", 
         "0.6057165896756541`", ",", "0.11392762674175484`", ",", 
         "0.22765085414730157`", ",", "0.93809655682052`", ",", 
         "0.3450923672487086`", ",", "0.9326421436143353`", ",", 
         "0.4575864776776176`", ",", "0.6400229727981503`", ",", 
         "0.7486741061718201`", ",", "0.1710260375945889`", ",", 
         "0.7858487146776292`", ",", "0.1186447364604103`"}], "}"}], ",", 
       "0.35269679305338075`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.6206597382681732`", ",", "0.56917597022971`", ",", 
         "0.858212193291968`", ",", "0.7326708025473578`", ",", 
         "0.05059653238907767`", ",", "0.6689563890245314`", ",", 
         "0.6919117523832371`", ",", "0.9244282261386481`", ",", 
         "0.7425145689023447`", ",", "0.46503612736170563`", ",", 
         "0.7030094658534295`", ",", "0.31871163646299394`", ",", 
         "0.6285869421605899`", ",", "0.23738527321440406`", ",", 
         "0.7649129090329095`", ",", "0.9736192692142853`", ",", 
         "0.6959447985462546`", ",", "0.7797987955367864`", ",", 
         "0.12488993623475922`", ",", "0.22494516304246523`", ",", 
         "0.5249187609516657`", ",", "0.9939500808591573`", ",", 
         "0.006245199774348927`", ",", "0.8722483699890845`", ",", 
         "0.9042590226834925`", ",", "0.42477411062944725`", ",", 
         "0.14803300648238096`", ",", "0.13957756744172667`", ",", 
         "0.8536624902944148`", ",", "0.7558177216049159`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.4561212540991439`", ",", "0.21514934130307864`", ",", 
         "0.1111479213920701`", ",", "0.29078159424321026`", ",", 
         "0.7531117882457145`", ",", "0.8964377048400847`", ",", 
         "0.4825609792314802`", ",", "0.05339632102880623`", ",", 
         "0.9881988792128048`", ",", "0.9228184356257993`", ",", 
         "0.7866161806852257`", ",", "0.27359752549201977`", ",", 
         "0.8633089429780456`", ",", "0.6978732725833341`", ",", 
         "0.26169741973356`", ",", "0.27964744463286256`", ",", 
         "0.8570637432036967`", ",", "0.8256249025942497`", ",", 
         "0.3574383970500675`", ",", "0.8548733340034153`", ",", 
         "0.7090307367213157`", ",", "0.686047335152523`", ",", 
         "0.5037759067556526`", ",", "0.09905561239849939`", ",", 
         "0.2529094826221718`", ",", "0.47089799384944436`", ",", 
         "0.3926279853635826`", ",", "0.8082740181552891`", ",", 
         "0.4997976943764574`", ",", "0.5744602890093596`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.9100670061321023`", ",", "0.7548776971264829`", ",", 
         "0.5115988151636526`", ",", "0.6516418533835603`", ",", 
         "0.12345082544687672`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"2", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "1"}], "}"}]}], "}"}], ",", 
       "0.48128017163446307`", ",", "0.648289872185607`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "3.405206745902751`"}], ",", 
         RowBox[{"-", "5.463741530030532`"}], ",", 
         RowBox[{"-", "2.9333882367670308`"}], ",", 
         RowBox[{"-", "2.3378224319711673`"}], ",", 
         RowBox[{"-", "5.134202751439927`"}], ",", 
         RowBox[{"-", "3.4556317543083077`"}], ",", 
         RowBox[{"-", "5.1682839496132615`"}], ",", 
         RowBox[{"-", "3.1371221403316154`"}], ",", 
         RowBox[{"-", "4.565521870260917`"}], ",", 
         RowBox[{"-", "4.266311849440627`"}], ",", 
         RowBox[{"-", "3.262513002019076`"}], ",", 
         RowBox[{"-", "5.8088558179318674`"}], ",", 
         RowBox[{"-", "1.8682838802419206`"}], ",", 
         RowBox[{"-", "1.13201619102484`"}], ",", 
         RowBox[{"-", "1.9633350775018603`"}], ",", 
         RowBox[{"-", "4.342489346301067`"}], ",", 
         RowBox[{"-", "2.1700811166088156`"}], ",", 
         RowBox[{"-", "3.8780662138787525`"}], ",", 
         RowBox[{"-", "5.033409237012467`"}], ",", 
         RowBox[{"-", "6.823595040916979`"}], ",", 
         RowBox[{"-", "9.110722364667328`"}], ",", 
         RowBox[{"-", "5.1006421473023`"}], ",", 
         RowBox[{"-", "9.775465749538482`"}], ",", 
         RowBox[{"-", "4.536139384187257`"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "2.4498561513407577`"}], ",", 
         RowBox[{"-", "2.138428021482678`"}], ",", 
         RowBox[{"-", "1.5001322772367696`"}], ",", 
         RowBox[{"-", "2.7762787138927845`"}], ",", 
         RowBox[{"-", "0.524740054957841`"}], ",", 
         RowBox[{"-", "1.8273413924467983`"}], ",", 
         RowBox[{"-", "2.700062391451552`"}], ",", 
         RowBox[{"-", "1.6224195273336968`"}], ",", 
         RowBox[{"-", "2.880768030977353`"}], ",", 
         RowBox[{"-", "0.5436362411854447`"}], ",", 
         RowBox[{"-", "3.393736680424513`"}], ",", 
         RowBox[{"-", "3.2494481870863923`"}], ",", 
         RowBox[{"-", "1.658322802111488`"}], ",", 
         RowBox[{"-", "3.6974815474520017`"}], ",", 
         RowBox[{"-", "0.6982682328765182`"}], ",", 
         RowBox[{"-", "2.9929621275221256`"}], ",", 
         RowBox[{"-", "2.4385093159027713`"}], ",", 
         RowBox[{"-", "1.1726002728829035`"}], ",", 
         RowBox[{"-", "2.8882338269241012`"}], ",", 
         RowBox[{"-", "0.5459674136703283`"}], ",", 
         RowBox[{"-", "2.7306420242066682`"}], ",", 
         RowBox[{"-", "3.3275011456440096`"}], ",", 
         RowBox[{"-", "1.694321150177474`"}], ",", 
         RowBox[{"-", "3.5115477950021883`"}], ",", 
         RowBox[{"-", "0.6637704292575044`"}], ",", 
         RowBox[{"-", "3.4409043037426055`"}], ",", 
         RowBox[{"-", "2.729332397800217`"}], ",", 
         RowBox[{"-", "1.7083233770424684`"}], ",", 
         RowBox[{"-", "3.5217145603316107`"}], ",", 
         RowBox[{"-", "0.6652072281281787`"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "3.6389108121465035`"}], ",", 
         RowBox[{"-", "4.257599686361558`"}], ",", 
         RowBox[{"-", "4.602498930936999`"}], ",", "0.041168456882766`", ",", 
         "0.03311151030432`", ",", 
         RowBox[{"-", "4.527434103206109`"}], ",", 
         RowBox[{"-", "2.0982687369642554`"}], ",", 
         RowBox[{"-", "4.753424142420717`"}], ",", "0.041612778334633935`", 
         ",", "0.03371917855349046`", ",", 
         RowBox[{"-", "3.090142540489637`"}], ",", 
         RowBox[{"-", "3.5876183878252688`"}], ",", 
         RowBox[{"-", "4.608261336477934`"}], ",", "0.03902468802959164`", 
         ",", "0.02969859528807793`", ",", 
         RowBox[{"-", "2.7386126868178144`"}], ",", 
         RowBox[{"-", "2.2860862028448774`"}], ",", 
         RowBox[{"-", "4.599065368683844`"}], ",", "0.03693860388147417`", 
         ",", "0.02621751354347037`", ",", 
         RowBox[{"-", "4.846578114348873`"}], ",", 
         RowBox[{"-", "1.9135930000721142`"}], ",", 
         RowBox[{"-", "5.934980044209979`"}], ",", "0.04324289215879437`", 
         ",", "0.035478705807305985`", ",", 
         RowBox[{"-", "3.1567145129537417`"}], ",", 
         RowBox[{"-", "4.176015969050848`"}], ",", 
         RowBox[{"-", "4.0443965042482395`"}], ",", "0.033570330052029744`", 
         ",", "0.027422293029688873`"}], "}"}]}], "}"}]}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.52804966748451*^9, 3.528049824103673*^9, 
  3.528049872407983*^9, 3.528051390952916*^9, 3.5280526503689528`*^9, 
  3.528055426817718*^9, 3.5280567189032784`*^9}]
}, Open  ]]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["Mstep (log\[Beta])", "Subsection",
 CellChangeTimes->{{3.525095319326301*^9, 3.525095320059371*^9}, {
  3.52509801721535*^9, 3.525098017925005*^9}, {3.525112791223256*^9, 
  3.525112791828678*^9}, {3.525115293972691*^9, 3.525115296179682*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "mstep", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"mstep", "[", 
     RowBox[{
     "loga_", ",", " ", "log\[Beta]_", ",", " ", "c_", ",", " ", "d_", ",", 
      " ", "pz_", ",", " ", "r_", ",", "  ", "plog\[Beta]_"}], "]"}], " ", ":=",
     " ", 
    RowBox[{"Module", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"q", ",", " ", "vars", ",", " ", "log\[Beta]new"}], " ", "}"}],
       ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"{", " ", 
         RowBox[{"q", ",", " ", "vars"}], "}"}], " ", "=", " ", 
        "\[IndentingNewLine]", 
        RowBox[{"FindMaximum", "[", 
         RowBox[{
          RowBox[{"qfunc", "[", 
           RowBox[{
           "loga", ",", " ", "log\[Beta]new", ",", "c", ",", " ", "d", ",", 
            " ", "pz", ",", " ", "r", ",", " ", "plog\[Beta]"}], "]"}], ",", 
          " ", 
          RowBox[{"{", 
           RowBox[{"log\[Beta]new", ",", " ", "log\[Beta]"}], "}"}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"AccuracyGoal", " ", "\[Rule]", " ", "10"}], ",", " ", 
          RowBox[{"PrecisionGoal", "\[Rule]", "10"}], ",", " ", 
          RowBox[{"WorkingPrecision", "\[Rule]", " ", "20"}]}], 
         "\[IndentingNewLine]", "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"{", " ", 
        RowBox[{"q", ",", " ", 
         RowBox[{"log\[Beta]new", " ", "/.", " ", "vars"}]}], " ", "}"}]}]}], 
     "\[IndentingNewLine]", "]"}]}], ";"}], " "}]}], "Input",
 CellChangeTimes->{{3.5278147889049273`*^9, 3.527814850601675*^9}, {
  3.527879334966029*^9, 3.527879337724207*^9}, {3.527879623109055*^9, 
  3.527879626762166*^9}}],

Cell[CellGroupData[{

Cell["Test Vectors for mstep", "Subsubsection",
 CellChangeTimes->{{3.50401932583255*^9, 3.504019328703233*^9}, {
  3.52781488740316*^9, 3.527814887815423*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "nworkers", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nworkers", " ", "=", " ", "4"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", "nlabels", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nlabels", " ", "=", " ", "5"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", "nratings", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nratings", " ", "=", " ", "8"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", "rank", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"rank", " ", "=", " ", "6"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"{", " ", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"ListQ", "[", "#", "]"}], " ", "&&", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"!", " ", 
             RowBox[{"ListQ", "[", 
              RowBox[{"#", "[", 
               RowBox[{"[", "1", "]"}], "]"}], "]"}]}], " ", "||", " ", 
            RowBox[{"!", " ", 
             RowBox[{"IntegerQ", "[", 
              RowBox[{
               RowBox[{"#", "[", 
                RowBox[{"[", "1", "]"}], "]"}], "[", 
               RowBox[{"[", "1", "]"}], "]"}], "]"}]}]}], ")"}]}], ",", " ", 
         RowBox[{"Flatten", "[", "#", "]"}], ",", " ", "#"}], "]"}], "&"}], 
      " ", "/@", " ", "#"}], ",", " ", "\[IndentingNewLine]", 
     RowBox[{"mstep", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"#", "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", 
       RowBox[{"(*", " ", "loga", " ", "*)"}], "\[IndentingNewLine]", 
       RowBox[{"#", "[", 
        RowBox[{"[", "2", "]"}], "]"}], ",", 
       RowBox[{"(*", " ", "log\[Beta]", " ", "*)"}], "\[IndentingNewLine]", 
       RowBox[{"Transpose", "[", 
        RowBox[{"#", "[", 
         RowBox[{"[", "3", "]"}], "]"}], "]"}], ",", 
       RowBox[{"(*", " ", "c", " ", "*)"}], "\[IndentingNewLine]", 
       RowBox[{"#", "[", 
        RowBox[{"[", "4", "]"}], "]"}], ",", 
       RowBox[{"(*", " ", "d", " ", "*)"}], "\[IndentingNewLine]", 
       RowBox[{"#", "[", 
        RowBox[{"[", "5", "]"}], "]"}], ",", 
       RowBox[{"(*", " ", "pz", " ", "*)"}], "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{
         RowBox[{"{", " ", 
          RowBox[{
           RowBox[{"1", " ", "+", " ", 
            RowBox[{"#", "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], ",", " ", 
           RowBox[{"1", " ", "+", " ", 
            RowBox[{"#", "[", 
             RowBox[{"[", "2", "]"}], "]"}]}]}], " ", "}"}], "&"}], " ", "/@",
         " ", 
        RowBox[{"#", "[", 
         RowBox[{"[", "6", "]"}], "]"}]}], ",", " ", 
       RowBox[{"(*", " ", "r", " ", "*)"}], "\[IndentingNewLine]", 
       RowBox[{"NormalDistribution", "[", 
        RowBox[{
         RowBox[{"#", "[", 
          RowBox[{"[", "7", "]"}], "]"}], ",", " ", 
         RowBox[{"#", "[", 
          RowBox[{"[", "8", "]"}], "]"}]}], "]"}]}], " ", 
      RowBox[{"(*", " ", "plog\[Beta]", " ", "*)"}], "\[IndentingNewLine]", 
      "]"}]}], "\[IndentingNewLine]", "}"}], " ", "&"}], " ", "/@", 
  "\[IndentingNewLine]", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"{", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"Random", "[", "]"}], ",", " ", 
          RowBox[{"{", " ", 
           RowBox[{"i", ",", " ", "1", ",", " ", "rank"}], " ", "}"}]}], 
         "]"}], ",", " ", 
        RowBox[{"{", " ", 
         RowBox[{"j", ",", " ", "1", ",", " ", "nworkers"}], " ", "}"}]}], 
       "]"}], ",", " ", 
      RowBox[{"(*", " ", "loga", " ", "*)"}], "\[IndentingNewLine]", 
      RowBox[{"Random", "[", "]"}], ",", " ", 
      RowBox[{"(*", " ", "log\[Beta]", " ", "*)"}], "\[IndentingNewLine]", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"Random", "[", "]"}], ",", " ", 
          RowBox[{"{", " ", 
           RowBox[{"i", ",", " ", "1", ",", " ", "nlabels"}], " ", "}"}]}], 
         "]"}], ",", " ", 
        RowBox[{"{", " ", 
         RowBox[{"j", ",", " ", "1", ",", " ", "rank"}], " ", "}"}]}], "]"}], 
      ",", " ", 
      RowBox[{"(*", " ", "c", " ", "*)"}], "\[IndentingNewLine]", 
      RowBox[{"Table", " ", "[", 
       RowBox[{
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"Random", "[", "]"}], ",", " ", 
          RowBox[{"{", " ", 
           RowBox[{"i", ",", " ", "1", ",", " ", "nlabels"}], " ", "}"}]}], 
         "]"}], ",", " ", 
        RowBox[{"{", " ", 
         RowBox[{"j", ",", " ", "1", ",", " ", "rank"}], " ", "}"}]}], "]"}], 
      ",", " ", 
      RowBox[{"(*", " ", "d", " ", "*)"}], "\[IndentingNewLine]", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"Random", "[", "]"}], ",", " ", 
        RowBox[{"{", " ", 
         RowBox[{"i", ",", " ", "1", ",", " ", "nlabels"}], " ", "}"}]}], 
       "]"}], ",", " ", 
      RowBox[{"(*", " ", "pz", " ", "*)"}], "\[IndentingNewLine]", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Random", "[", 
           RowBox[{"Integer", ",", " ", 
            RowBox[{"nworkers", " ", "-", " ", "1"}]}], "]"}], ",", 
          "\[IndentingNewLine]", "           ", 
          RowBox[{"Random", "[", 
           RowBox[{"Integer", ",", " ", 
            RowBox[{"nlabels", " ", "-", " ", "1"}]}], "]"}]}], " ", "}"}], 
        ",", "\[IndentingNewLine]", "            ", 
        RowBox[{"{", " ", 
         RowBox[{"i", ",", " ", "1", ",", " ", "nratings"}], " ", "}"}]}], 
       "]"}], ",", " ", 
      RowBox[{"(*", " ", "r", " ", "*)"}], "\[IndentingNewLine]", 
      RowBox[{"Random", "[", "]"}], ",", " ", 
      RowBox[{"(*", " ", 
       RowBox[{"mean", " ", "of", " ", "plog\[Beta]"}], " ", "*)"}], 
      "\[IndentingNewLine]", 
      RowBox[{"Random", "[", "]"}]}], " ", 
     RowBox[{"(*", " ", 
      RowBox[{"var", " ", "of", " ", "plog\[Beta]"}], " ", "*)"}], 
     "\[IndentingNewLine]", "}"}], ",", " ", 
    RowBox[{"{", " ", 
     RowBox[{"foo", ",", " ", "1", ",", " ", "10"}], " ", "}"}]}], 
   "]"}]}]}], "Input",
 CellChangeTimes->{{3.5213198023674088`*^9, 3.521319806678164*^9}, {
   3.521319841278997*^9, 3.521319998143119*^9}, {3.521320056026449*^9, 
   3.5213202470344133`*^9}, {3.5213203034771013`*^9, 3.521320412671164*^9}, {
   3.521320450924569*^9, 3.521320509766828*^9}, {3.521320561841152*^9, 
   3.521320581102922*^9}, {3.5213206273661747`*^9, 3.521320735212844*^9}, {
   3.521320879372446*^9, 3.521320879723878*^9}, {3.521320942894346*^9, 
   3.5213209435681467`*^9}, {3.521321247812214*^9, 3.521321378312883*^9}, {
   3.52132197532421*^9, 3.521321997318965*^9}, {3.521322607804085*^9, 
   3.5213226153349524`*^9}, {3.5213226506176558`*^9, 3.52132268329023*^9}, {
   3.521377841284711*^9, 3.521377855658619*^9}, 3.521379982613592*^9, 
   3.52250805332108*^9, 3.522508097347521*^9, {3.527813134446953*^9, 
   3.5278132459573183`*^9}, {3.527813305512074*^9, 3.527813352642288*^9}, {
   3.527814063258554*^9, 3.527814084466427*^9}, {3.527814316019315*^9, 
   3.5278143618339787`*^9}, {3.527814431327695*^9, 3.527814463267811*^9}, {
   3.527814893526133*^9, 3.5278149045941153`*^9}, {3.527815459709106*^9, 
   3.527815489972472*^9}, {3.527879632069026*^9, 3.5278796461978197`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"FindMaximum", "::", "\<\"precw\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"The precision of the \
argument function (\\\\\\\"\\\", \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(-\\(\\((\\(\\(1.\
4355226623693755` \[InvisibleSpace]\\)\\) + \
\\(\\(Log[\\(\\(0.5512986729282526`\\\\ \
\[ExponentialE]\\^\\(\\(\\(-0.9548249676322165`\\)\\)\\\\ \\(Plus[\\(\\(\
\[LeftSkeleton] 2 \[RightSkeleton]\\)\\)]\\)\\^2\\)\\)\\)]\\)\\) + \\(\\(\
\[LeftSkeleton] 29 \[RightSkeleton]\\)\\) + \\(\\(0.8527940344713221`\\\\ \\(\
\\(Log[\\(\\(\[ExponentialE]\\^\\(\\(\\(-3.0841535893383214`\\)\\)\\\\ \
\\(\\(Power[\\(\\(\[LeftSkeleton] 2 \[RightSkeleton]\\)\\)]\\)\\)\\)\\/\\(1 + \
\\(\\(Power[\\(\\(\[LeftSkeleton] 2 \[RightSkeleton]\\)\\)]\\)\\) + \
\\(\\(Power[\\(\\(\[LeftSkeleton] 2 \[RightSkeleton]\\)\\)]\\)\\) + \
\\(\\(Power[\\(\\(\[LeftSkeleton] 2 \[RightSkeleton]\\)\\)]\\)\\) + \
\\(\\(Power[\\(\\(\[LeftSkeleton] 2 \
\[RightSkeleton]\\)\\)]\\)\\)\\)\\)\\)]\\)\\)\\)\\))\\)\\)\\), \\\"MT\\\"]\\)\
\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\") is less than WorkingPrecision (\\\\\
\\\"\\\", \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(20.`\\), \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\").\\\\\\\"\\\", \
\\\"MT\\\"]\\) \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/precw\\\", ButtonNote -> \
\\\"FindMaximum::precw\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.527814904886145*^9, {3.527815460149885*^9, 3.527815490230009*^9}, {
   3.527879641618368*^9, 3.527879646550755*^9}, 3.5280555088929996`*^9, 
   3.528056767228136*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"FindMaximum", "::", "\<\"precw\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"The precision of the \
argument function (\\\\\\\"\\\", \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(-\\(\\((\\(\\(1.\
4248937053528015` \[InvisibleSpace]\\)\\) + \
\\(\\(Log[\\(\\(0.47753087334231176`\\\\ \
\[ExponentialE]\\^\\(\\(\\(-0.7163953898164639`\\)\\)\\\\ \\(Plus[\\(\\(\
\[LeftSkeleton] 2 \[RightSkeleton]\\)\\)]\\)\\^2\\)\\)\\)]\\)\\) + \\(\\(\
\[LeftSkeleton] 29 \[RightSkeleton]\\)\\) + \\(\\(2.1120948371123482`\\\\ \\(\
\\(Log[\\(\\(\[ExponentialE]\\^\\(\\(\\(-3.129957662531272`\\)\\)\\\\ \
\\(\\(Power[\\(\\(\[LeftSkeleton] 2 \[RightSkeleton]\\)\\)]\\)\\)\\)\\/\\(1 + \
\\(\\(Power[\\(\\(\[LeftSkeleton] 2 \[RightSkeleton]\\)\\)]\\)\\) + \
\\(\\(Power[\\(\\(\[LeftSkeleton] 2 \[RightSkeleton]\\)\\)]\\)\\) + \
\\(\\(Power[\\(\\(\[LeftSkeleton] 2 \[RightSkeleton]\\)\\)]\\)\\) + \
\\(\\(Power[\\(\\(\[LeftSkeleton] 2 \
\[RightSkeleton]\\)\\)]\\)\\)\\)\\)\\)]\\)\\)\\)\\))\\)\\)\\), \\\"MT\\\"]\\)\
\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\") is less than WorkingPrecision (\\\\\
\\\"\\\", \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(20.`\\), \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\").\\\\\\\"\\\", \
\\\"MT\\\"]\\) \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/precw\\\", ButtonNote -> \
\\\"FindMaximum::precw\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.527814904886145*^9, {3.527815460149885*^9, 3.527815490230009*^9}, {
   3.527879641618368*^9, 3.527879646550755*^9}, 3.5280555088929996`*^9, 
   3.528056767267601*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"FindMaximum", "::", "\<\"precw\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"The precision of the \
argument function (\\\\\\\"\\\", \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(-\\(\\((\\(\\(1.\
3536352882782259` \[InvisibleSpace]\\)\\) + \
\\(\\(Log[\\(\\(0.6177995800026479`\\\\ \
\[ExponentialE]\\^\\(\\(\\(-1.1990715262644087`\\)\\)\\\\ \\(Plus[\\(\\(\
\[LeftSkeleton] 2 \[RightSkeleton]\\)\\)]\\)\\^2\\)\\)\\)]\\)\\) + \\(\\(\
\[LeftSkeleton] 39 \[RightSkeleton]\\)\\) + \\(\\(0.4087699457791652`\\\\ \\(\
\\(Log[\\(\\(\[ExponentialE]\\^\\(\\(\\(-3.2631991615715603`\\)\\)\\\\ \
\\(\\(Power[\\(\\(\[LeftSkeleton] 2 \[RightSkeleton]\\)\\)]\\)\\)\\)\\/\\(1 + \
\\(\\(Power[\\(\\(\[LeftSkeleton] 2 \[RightSkeleton]\\)\\)]\\)\\) + \
\\(\\(Power[\\(\\(\[LeftSkeleton] 2 \[RightSkeleton]\\)\\)]\\)\\) + \
\\(\\(Power[\\(\\(\[LeftSkeleton] 2 \[RightSkeleton]\\)\\)]\\)\\) + \
\\(\\(Power[\\(\\(\[LeftSkeleton] 2 \
\[RightSkeleton]\\)\\)]\\)\\)\\)\\)\\)]\\)\\)\\)\\))\\)\\)\\), \\\"MT\\\"]\\)\
\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\") is less than WorkingPrecision (\\\\\
\\\"\\\", \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(20.`\\), \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\").\\\\\\\"\\\", \
\\\"MT\\\"]\\) \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/precw\\\", ButtonNote -> \
\\\"FindMaximum::precw\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.527814904886145*^9, {3.527815460149885*^9, 3.527815490230009*^9}, {
   3.527879641618368*^9, 3.527879646550755*^9}, 3.5280555088929996`*^9, 
   3.528056767342223*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"General", "::", "\<\"stop\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"Further output of \\\\\\\"\\\
\", \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(FindMaximum :: \
\\\"precw\\\"\\), \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\" will \
be suppressed during this calculation.\\\\\\\"\\\", \\\"MT\\\"]\\) \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/stop\\\", \
ButtonNote -> \\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.527814904886145*^9, {3.527815460149885*^9, 3.527815490230009*^9}, {
   3.527879641618368*^9, 3.527879646550755*^9}, 3.5280555088929996`*^9, 
   3.5280567673587837`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "0.9537685808002262`", ",", "0.8617534057133167`", ",", 
         "0.20163272700160054`", ",", "0.7912261289819102`", ",", 
         "0.12814367820597652`", ",", "0.5043150086632492`", ",", 
         "0.34675939299818526`", ",", "0.08219539226059455`", ",", 
         "0.4420963430534535`", ",", "0.0005391019075965187`", ",", 
         "0.24770378059968584`", ",", "0.8292859096384227`", ",", 
         "0.9711983492040092`", ",", "0.607911116544014`", ",", 
         "0.43942976244439674`", ",", "0.32948821526196537`", ",", 
         "0.39673806019464947`", ",", "0.6978441104119115`", ",", 
         "0.6845520653179139`", ",", "0.8178894000983128`", ",", 
         "0.7450962068110892`", ",", "0.5743932849650348`", ",", 
         "0.20327189368345078`", ",", "0.1695995279127059`"}], "}"}], ",", 
       "0.791327626010863`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.7126398792517181`", ",", "0.0016391666818502374`", ",", 
         "0.37837339893079563`", ",", "0.6631839478048865`", ",", 
         "0.2083248705884689`", ",", "0.654879773683665`", ",", 
         "0.29617800667020105`", ",", "0.22108760475143296`", ",", 
         "0.2077857686808724`", ",", "0.40717599308397917`", ",", 
         "0.4668920970317783`", ",", "0.2498892555474238`", ",", 
         "0.5998746521368584`", ",", "0.9677462306395824`", ",", 
         "0.1374038817698129`", ",", "0.8531511953527743`", ",", 
         "0.9020305417249469`", ",", "0.2831941653216686`", ",", 
         "0.3195144816715001`", ",", "0.10805498854168515`", ",", 
         "0.32763725675991207`", ",", "0.0799222716382178`", ",", 
         "0.14991495375879418`", ",", "0.3167273625308221`", ",", 
         "0.6149973775081939`", ",", "0.07828310495636757`", ",", 
         "0.7715415548279986`", ",", "0.6535434147259357`", ",", 
         "0.40667250691972506`", ",", "0.4234033312727026`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.47536354815779747`", ",", "0.43245580997450267`", ",", 
         "0.19888673823885267`", ",", "0.016227338188723395`", ",", 
         "0.008471451126019162`", ",", "0.18256655442707884`", ",", 
         "0.5990120861019942`", ",", "0.04848110754914096`", ",", 
         "0.8710675693562062`", ",", "0.3294153590743045`", ",", 
         "0.6969815443770473`", ",", "0.7652869422274724`", ",", 
         "0.5515530876847061`", ",", "0.2213603705326194`", ",", 
         "0.36934428761713517`", ",", "0.6853646705892545`", ",", 
         "0.40163813392591197`", ",", "0.9046330080017972`", ",", 
         "0.7543469101089412`", ",", "0.607081565632887`", ",", 
         "0.6300965790979134`", ",", "0.2510895932758616`", ",", 
         "0.34767440318921616`", ",", "0.18367823436018443`", ",", 
         "0.15473303094011598`", ",", "0.8186337833013589`", ",", 
         "0.14878766495036352`", ",", "0.16745089617146103`", ",", 
         "0.14626157981409682`", ",", "0.6360672288742801`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.5497755788483694`", ",", "0.11896978862232008`", ",", 
         "0.27519401045789055`", ",", "0.30665186979997555`", ",", 
         "0.8527940344713221`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"3", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "0"}], "}"}]}], "}"}], ",", "0.3536828463948477`",
        ",", "0.7236409227731844`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "30.39394146826097397796414699112610828644`20."}], ",", 
       RowBox[{
       "-", "1.2932330518308693577209830732817905443732264814116206252947`20.\
"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "0.08529149926735619`", ",", "0.4834497468541869`", ",", 
         "0.6683181758055932`", ",", "0.3220027888472724`", ",", 
         "0.18065849126555894`", ",", "0.7291028367452457`", ",", 
         "0.061236610172706124`", ",", "0.691906209749359`", ",", 
         "0.9295688979896973`", ",", "0.38142843355602946`", ",", 
         "0.8775583758125217`", ",", "0.537173178809243`", ",", 
         "0.1109351146883384`", ",", "0.23264076860566596`", ",", 
         "0.7101074796410607`", ",", "0.3909115989951462`", ",", 
         "0.4748678858140583`", ",", "0.6828651897572966`", ",", 
         "0.5911376910187406`", ",", "0.11571758853725563`", ",", 
         "0.16821601601408273`", ",", "0.8300711552859745`", ",", 
         "0.23745484462389285`", ",", "0.39207666576407124`"}], "}"}], ",", 
       "0.08292451674672655`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.3466214084317877`", ",", "0.5691366688182997`", ",", 
         "0.07007387691679881`", ",", "0.9022660254811676`", ",", 
         "0.617518571686542`", ",", "0.5079000586455936`", ",", 
         "0.3781676671674398`", ",", "0.9726971274914703`", ",", 
         "0.23609013813051255`", ",", "0.6303416828330719`", ",", 
         "0.8409944883581968`", ",", "0.8617620128031319`", ",", 
         "0.0034493695248465914`", ",", "0.9202342031920113`", ",", 
         "0.45008288936305063`", ",", "0.38689412698907355`", ",", 
         "0.32058417976754994`", ",", "0.32909651217327074`", ",", 
         "0.334365300825795`", ",", "0.21867811097499082`", ",", 
         "0.4905130244815754`", ",", "0.09164166754937786`", ",", 
         "0.9422886350617238`", ",", "0.13575359422826427`", ",", 
         "0.1438916160497877`", ",", "0.5225049987310781`", ",", 
         "0.872214758144925`", ",", "0.2334875687470967`", ",", 
         "0.5263730443632456`", ",", "0.014604940085484509`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.49404709097748517`", ",", "0.26079044125562645`", ",", 
         "0.2902829062327331`", ",", "0.38426325725241256`", ",", 
         "0.6530526026192883`", ",", "0.39902842845249453`", ",", 
         "0.2868335367078865`", ",", "0.4640290540604013`", ",", 
         "0.20296971325623767`", ",", "0.012134301463420996`", ",", 
         "0.9662493569403365`", ",", "0.13493254188713058`", ",", 
         "0.8686044124304426`", ",", "0.7934561904884302`", ",", 
         "0.4757363324587612`", ",", "0.043290874337752736`", ",", 
         "0.9263157773687188`", ",", "0.6577025962601659`", ",", 
         "0.33184471640897345`", ",", "0.5207858756066747`", ",", 
         "0.05410101922379389`", ",", "0.42421502751306917`", ",", 
         "0.8054716720457278`", ",", "0.5061809355211901`", ",", 
         "0.5600539282463087`", ",", "0.16342458625744277`", ",", 
         "0.5151887658129947`", ",", "0.12191767826877753`", ",", 
         "0.9070013256270204`", ",", "0.7643961578049482`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.2283552291051082`", ",", "0.6578886242083762`", ",", 
         "0.7040316123707827`", ",", "0.7522618563415272`", ",", 
         "0.26210587216477166`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"3", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "4"}], "}"}]}], "}"}], ",", "0.5229560823212456`",
        ",", "0.8354271999403401`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "36.45490738217258330403831177665837379572`20."}], ",", 
       RowBox[{
       "-", "1.3864568431145718404368120495120193365833592691327424972769`20.\
"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "0.958805665853097`", ",", "0.7863695397060104`", ",", 
         "0.4796652079834929`", ",", "0.9091114225716213`", ",", 
         "0.30110306959293115`", ",", "0.454524823297037`", ",", 
         "0.9588793323768183`", ",", "0.8550104033478273`", ",", 
         "0.8768880420798619`", ",", "0.6490531512513091`", ",", 
         "0.4526983968556282`", ",", "0.29495647510151857`", ",", 
         "0.7134634558224192`", ",", "0.1338643854383145`", ",", 
         "0.33078071858685065`", ",", "0.38795514947449816`", ",", 
         "0.949067298017471`", ",", "0.9055091563332063`", ",", 
         "0.6728920943784744`", ",", "0.6839235371037155`", ",", 
         "0.1968054416759438`", ",", "0.6434032841684346`", ",", 
         "0.1499360120572288`", ",", "0.8484963371633754`"}], "}"}], ",", 
       "0.23799977582284676`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.8570337444624242`", ",", "0.670270804073736`", ",", 
         "0.9393849145917541`", ",", "0.9368967062299156`", ",", 
         "0.4025089211653872`", ",", "0.7113914716969176`", ",", 
         "0.0843745112439268`", ",", "0.06000866415005361`", ",", 
         "0.753455769914078`", ",", "0.25869307484128945`", ",", 
         "0.7894180361424082`", ",", "0.3465452083276344`", ",", 
         "0.6195913844757636`", ",", "0.9279123562544388`", ",", 
         "0.4014628866679101`", ",", "0.3974779103101634`", ",", 
         "0.7140822281425572`", ",", "0.2550202618759644`", ",", 
         "0.7175393495641946`", ",", "0.20067246863421961`", ",", 
         "0.07067894397412255`", ",", "0.10508424981873557`", ",", 
         "0.8690430124008194`", ",", "0.9626726928113728`", ",", 
         "0.21364519951169836`", ",", "0.43481344574499964`", ",", 
         "0.9296580978090653`", ",", "0.025775986581457265`", ",", 
         "0.8111362783463112`", ",", "0.7234219740480821`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.8452835865651385`", ",", "0.9657673224314036`", ",", 
         "0.05768050843223314`", ",", "0.46472889920679256`", ",", 
         "0.0558655504227302`", ",", "0.6192221141037693`", ",", 
         "0.4380891239564696`", ",", "0.5368165429523538`", ",", 
         "0.6544026637548201`", ",", "0.22174420379360585`", ",", 
         "0.7240068958139124`", ",", "0.28179628107638943`", ",", 
         "0.9368633141906254`", ",", "0.021071735159386245`", ",", 
         "0.6533279518397899`", ",", "0.17671203125765383`", ",", 
         "0.06782030178980611`", ",", "0.058399042348013394`", ",", 
         "0.43968275232809145`", ",", "0.7418985855126542`", ",", 
         "0.1381622039807409`", ",", "0.03262305576655613`", ",", 
         "0.6285464739817803`", ",", "0.01847661146457215`", ",", 
         "0.29287861741560245`", ",", "0.06685573333515248`", ",", 
         "0.5708659655495472`", ",", "0.5537477122577795`", ",", 
         "0.23701306699287225`", ",", "0.44763361923138323`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.13277684159307757`", ",", "0.01693116930542579`", ",", 
         "0.5826104032380521`", ",", "0.22588941543777738`", ",", 
         "0.4087699457791652`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"2", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "0"}], "}"}]}], "}"}], ",", "0.7351348882290364`",
        ",", "0.6457470890474267`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "24.33524877161050252392523900908705969009`20."}], ",", 
       RowBox[{
       "-", "1.2344815572064789904850231530111723525933858924830133219075`20.\
"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "0.20481768027839112`", ",", "0.7554419939393754`", ",", 
         "0.5584228569713825`", ",", "0.5779267872576206`", ",", 
         "0.14641863793037774`", ",", "0.3157592416112839`", ",", 
         "0.8165242714587284`", ",", "0.4397645832768797`", ",", 
         "0.11379558216382162`", ",", "0.6872127676295036`", ",", 
         "0.7980476599941562`", ",", "0.14688596586127722`", ",", 
         "0.04693984882866913`", ",", "0.11634680207995642`", ",", 
         "0.24429994773637664`", ",", "0.909872898868405`", ",", 
         "0.5993062295972859`", ",", "0.9835699604868788`", ",", 
         "0.22736877843095085`", ",", "0.3272624956303528`", ",", 
         "0.37341681415950856`", ",", "0.5748000147077137`", ",", 
         "0.4922338902019145`", ",", "0.6815154065829261`"}], "}"}], ",", 
       "0.1685991338811174`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.8193580207683383`", ",", "0.9338110332305319`", ",", 
         "0.10358861932530558`", ",", "0.022180495950739666`", ",", 
         "0.5035987791570544`", ",", "0.11728676177180355`", ",", 
         "0.6638240360484259`", ",", "0.9083849137869181`", ",", 
         "0.8163860115275509`", ",", "0.31923910177764736`", ",", 
         "0.5169380701871487`", ",", "0.8614450649582489`", ",", 
         "0.7000392094475943`", ",", "0.0749391540412707`", ",", 
         "0.6070651713187437`", ",", "0.262138835360963`", ",", 
         "0.7164692489607155`", ",", "0.8475703756103199`", ",", 
         "0.2798026756883909`", ",", "0.8887220212014545`", ",", 
         "0.14166923425300187`", ",", "0.3553364854084054`", ",", 
         "0.5982872691054648`", ",", "0.720122887320337`", ",", 
         "0.3223112134846636`", ",", "0.42152545217787346`", ",", 
         "0.4946986497801592`", ",", "0.6979423913695975`", ",", 
         "0.8187124343276092`", ",", "0.3042386904060699`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.8308746137317333`", ",", "0.7895574775826794`", ",", 
         "0.0023264228000583606`", ",", "0.9849995886284225`", ",", 
         "0.3139365435445846`", ",", "0.9281124126244304`", ",", 
         "0.30228721335246395`", ",", "0.9100604345871519`", ",", 
         "0.7068713722258408`", ",", "0.6659735772634674`", ",", 
         "0.5858179643917484`", ",", "0.06249005897683202`", ",", 
         "0.42706869653744994`", ",", "0.7772515560620129`", ",", 
         "0.44414873013874656`", ",", "0.7071535735684267`", ",", 
         "0.8287814274319852`", ",", "0.05712866874167586`", ",", 
         "0.12183751665408296`", ",", "0.28562812139055316`", ",", 
         "0.33408277765182604`", ",", "0.3591862773720785`", ",", 
         "0.3031250823264738`", ",", "0.9813894309844833`", ",", 
         "0.5032081639200927`", ",", "0.5696287997893991`", ",", 
         "0.30079865952641544`", ",", "0.9963898423560608`", ",", 
         "0.18927162037550813`", ",", "0.6415163871649687`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.9985114461739515`", ",", "0.08632940776890886`", ",", 
         "0.48240024814966725`", ",", "0.9755428099015012`", ",", 
         "0.41269348178220305`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "2"}], "}"}]}], "}"}], ",", 
       "0.02383934879207685`", ",", "0.055331551612217277`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "63.85219453290964782173910048969207414511`20."}], ",", 
       RowBox[{
       "-", "0.1274444121954725633900544451829249612689887172223279776517`20.\
"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "0.1982912538394883`", ",", "0.9685447516434565`", ",", 
         "0.3166857752236502`", ",", "0.22655012418023207`", ",", 
         "0.14116258509781246`", ",", "0.8467072349893735`", ",", 
         "0.031057653833097026`", ",", "0.8924673465284061`", ",", 
         "0.781976307725734`", ",", "0.5435821526628998`", ",", 
         "0.04966822284861375`", ",", "0.3892591826083133`", ",", 
         "0.2123475079363349`", ",", "0.24278349313648434`", ",", 
         "0.05327838049255302`", ",", "0.1999875622328052`", ",", 
         "0.5708311207713662`", ",", "0.24427204696253288`", ",", 
         "0.9669489727236441`", ",", "0.7175873140831379`", ",", 
         "0.595288310869865`", ",", "0.8315785651803298`", ",", 
         "0.9431096239315673`", ",", "0.6622557624709207`"}], "}"}], ",", 
       "0.39699705703037663`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.8630338135368734`", ",", "0.6264238487079171`", ",", 
         "0.4357056382906886`", ",", "0.2558344719325642`", ",", 
         "0.016326578547499773`", ",", "0.5953661948748201`", ",", 
         "0.5432382917622826`", ",", "0.4738581642068302`", ",", 
         "0.47274442588460003`", ",", "0.5456979720262063`", ",", 
         "0.15397910915396923`", ",", "0.2615106562704953`", ",", 
         "0.22996093274811566`", ",", "0.49241959153365333`", ",", 
         "0.9539915469211641`", ",", "0.6906795354991291`", ",", 
         "0.9856888857855828`", ",", "0.5254706188100091`", ",", 
         "0.23640423283802608`", ",", "0.09539122462926408`", ",", 
         "0.15411032060525295`", ",", "0.5823609948784418`", ",", 
         "0.5741484703671054`", ",", "0.6983941675988874`", ",", 
         "0.2910765070683796`", ",", "0.9559371461705247`", ",", 
         "0.1384428320764168`", ",", "0.44255969566632325`", ",", 
         "0.27474992852087987`", ",", "0.36057095129570466`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.5952045403141343`", ",", "0.968701531459493`", ",", 
         "0.8020055026362799`", ",", "0.8148729792694983`", ",", 
         "0.441225431160165`", ",", "0.7071908751889978`", ",", 
         "0.5720445698881642`", ",", "0.32245338773584503`", ",", 
         "0.487233884239001`", ",", "0.01651133968986871`", ",", 
         "0.5863556841025814`", ",", "0.7969827689258359`", ",", 
         "0.2508296514009749`", ",", "0.9211201150606046`", ",", 
         "0.43224536349732845`", ",", "0.21462177404739405`", ",", 
         "0.6766811810338695`", ",", "0.22272594746171717`", ",", 
         "0.1411688564289488`", ",", "0.2586846278768693`", ",", 
         "0.5382383489574527`", ",", "0.7801662517953939`", ",", 
         "0.866418927908069`", ",", "0.8981136765811646`", ",", 
         "0.9430338086433184`", ",", "0.8114647203359009`", ",", 
         "0.06441342527178907`", ",", "0.08324069731166628`", ",", 
         "0.5018083774831534`", ",", "0.1042738451469031`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.4923688553836249`", ",", "0.7607873095758212`", ",", 
         "0.014574493244152449`", ",", "0.0877625054570344`", ",", 
         "0.9060131712810435`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"1", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "3"}], "}"}]}], "}"}], ",", "0.9638045406499853`",
        ",", "0.7637448418431776`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "36.17257361416657755756821485531617712476`20."}], ",", 
       RowBox[{
       "-", "1.4048061843050376652945961473698161003139522895466484442295`20.\
"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "0.16664239039642978`", ",", "0.473767807783715`", ",", 
         "0.7491827666025913`", ",", "0.08706366080930804`", ",", 
         "0.9439164429347126`", ",", "0.33259895135476625`", ",", 
         "0.490498138725722`", ",", "0.5488253118518553`", ",", 
         "0.16375019113931866`", ",", "0.46618002344669734`", ",", 
         "0.5923844621445573`", ",", "0.6057915032085369`", ",", 
         "0.35228547080341777`", ",", "0.40176659817490823`", ",", 
         "0.509143764832891`", ",", "0.10398312572538344`", ",", 
         "0.24801162565651466`", ",", "0.9093977427912834`", ",", 
         "0.7483564552570698`", ",", "0.089408632481231`", ",", 
         "0.16024912019948026`", ",", "0.0033845715102398914`", ",", 
         "0.7845519146070845`", ",", "0.32566379063805345`"}], "}"}], ",", 
       "0.9936067298030505`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.5296167637265249`", ",", "0.03536914800449323`", ",", 
         "0.23860012982874543`", ",", "0.049690286868337895`", ",", 
         "0.19701781237175858`", ",", "0.5448710092787712`", ",", 
         "0.6897748179768901`", ",", "0.8859400957290192`", ",", 
         "0.7308377889250612`", ",", "0.9524865471342139`", ",", 
         "0.08398331476835319`", ",", "0.5336546249256015`", ",", 
         "0.329071190750153`", ",", "0.4433427823013228`", ",", 
         "0.9800001890429697`", ",", "0.28564299926908676`", ",", 
         "0.4196734479588696`", ",", "0.6949863270442529`", ",", 
         "0.8905915565617387`", ",", "0.1253938790696065`", ",", 
         "0.4162888764486298`", ",", "0.9104344124371684`", ",", 
         "0.5649277659236853`", ",", "0.13178714926655602`", ",", 
         "0.8866721127221049`", ",", "0.8750652644326752`", ",", 
         "0.32632763609493987`", ",", "0.08209686239821813`", ",", 
         "0.6896543003503464`", ",", "0.33019425515390394`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.6365528181180498`", ",", "0.1961567666691989`", ",", 
         "0.958816511425285`", ",", "0.37770770801969006`", ",", 
         "0.5525695033496966`", ",", "0.6625021417435975`", ",", 
         "0.629745320675132`", ",", "0.9343649257183673`", ",", 
         "0.5725693143067269`", ",", "0.3768591424745107`", ",", 
         "0.21007187271626238`", ",", "0.23937859867411435`", ",", 
         "0.6819777577449881`", ",", "0.25146526340490416`", ",", 
         "0.7937829962676326`", ",", "0.32894418623694593`", ",", 
         "0.11704999182130281`", ",", "0.11967811413834813`", ",", 
         "0.9071108835455277`", ",", "0.45387892180427075`", ",", 
         "0.790722355726363`", ",", "0.03758125174013`", ",", 
         "0.21745658319518138`", ",", "0.12368466665036679`", ",", 
         "0.15416953760831315`", ",", "0.8414244850709311`", ",", 
         "0.25864007176989634`", ",", "0.7459769586306767`", ",", 
         "0.6016000342586165`", ",", "0.17892234332733364`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.6288947510947643`", ",", "0.8116120329123094`", ",", 
         "0.02903071995188968`", ",", "0.802063200852823`", ",", 
         "0.41882287837850196`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "3"}], "}"}]}], "}"}], ",", "0.5722334342381951`",
        ",", "0.34705296220690157`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "49.36605107561033373643948375739565789647`20."}], ",", 
       RowBox[{
       "-", "0.9018674893513208331464866367900980008431854884065614896826`20.\
"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "0.5505979374479189`", ",", "0.6250398821108694`", ",", 
         "0.24328924800124918`", ",", "0.23000297038559875`", ",", 
         "0.4309198233095707`", ",", "0.7179289985653416`", ",", 
         "0.7894103261969785`", ",", "0.43928061465923585`", ",", 
         "0.3933385715694407`", ",", "0.5004724153701603`", ",", 
         "0.6657256595466117`", ",", "0.2851110770509227`", ",", 
         "0.5519140864985096`", ",", "0.24183234360026393`", ",", 
         "0.919748700915935`", ",", "0.6835110427923061`", ",", 
         "0.37299174317117595`", ",", "0.6129375925054996`", ",", 
         "0.10813666800362552`", ",", "0.6544803228404165`", ",", 
         "0.570928542318353`", ",", "0.19411471412699766`", ",", 
         "0.5359032337654305`", ",", "0.3074273606335149`"}], "}"}], ",", 
       "0.020330604870434126`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.5690748320161283`", ",", "0.29261398576418124`", ",", 
         "0.07742439024791613`", ",", "0.5894107815608635`", ",", 
         "0.8511458334507866`", ",", "0.5032036595672028`", ",", 
         "0.6381437755886803`", ",", "0.19607220999142275`", ",", 
         "0.3506734180806264`", ",", "0.8374780000205911`", ",", 
         "0.35303269853775765`", ",", "0.6441581234929131`", ",", 
         "0.1088410744803625`", ",", "0.9177292991046562`", ",", 
         "0.6695216557454515`", ",", "0.2711663803217372`", ",", 
         "0.4959034819748629`", ",", "0.8095926311010306`", ",", 
         "0.015041332905035013`", ",", "0.7002378380033842`", ",", 
         "0.30178876784786524`", ",", "0.2736893973356002`", ",", 
         "0.7076139722715201`", ",", "0.6799072331329501`", ",", 
         "0.7327139358317369`", ",", "0.981075411571419`", ",", 
         "0.630189582023604`", ",", "0.09049645157208669`", ",", 
         "0.8815681023809503`", ",", "0.47787175200421617`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.9920458064349237`", ",", "0.8944242415806639`", ",", 
         "0.5308946843003238`", ",", "0.640393751983625`", ",", 
         "0.639013107897166`", ",", "0.2502661180877508`", ",", 
         "0.4220536098199613`", ",", "0.7226644528789689`", ",", 
         "0.9694914521517146`", ",", "0.9790997377660137`", ",", 
         "0.9261501278450984`", ",", "0.9130718217779382`", ",", 
         "0.9544501192466796`", ",", "0.2788618997626294`", ",", 
         "0.6243613599972332`", ",", "0.639382424442338`", ",", 
         "0.24683614697515943`", ",", "0.5989546666296792`", ",", 
         "0.8916474241654962`", ",", "0.658307012870919`", ",", 
         "0.6166465649515555`", ",", "0.5084582150575926`", ",", 
         "0.01007932178454599`", ",", "0.1804352608667028`", ",", 
         "0.6246007585166318`", ",", "0.6140339734769286`", ",", 
         "0.47918463748422213`", ",", "0.5400415088830778`", ",", 
         "0.9855876506194657`", ",", "0.3637678553891778`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.057131027664260814`", ",", "0.8173770560041089`", ",", 
         "0.01609619846775117`", ",", "0.38466811762316416`", ",", 
         "0.1309808998191624`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "1"}], "}"}]}], "}"}], ",", "0.9043052342261707`",
        ",", "0.06164607922107162`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "78.71684784344161850742496674344481404282`20."}], ",", 
       "0.631850472844870114728349938347648148684321256496332352981`20."}], 
      "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "0.1058062178605348`", ",", "0.5066195398219292`", ",", 
         "0.2649228097838327`", ",", "0.8148099322459121`", ",", 
         "0.5068515512308556`", ",", "0.614972115656433`", ",", 
         "0.6066157969129137`", ",", "0.19816336729435674`", ",", 
         "0.998393336173263`", ",", "0.604892793871887`", ",", 
         "0.42618053604621087`", ",", "0.5735626087777249`", ",", 
         "0.38435936269633436`", ",", "0.1257081563876648`", ",", 
         "0.8861390271631331`", ",", "0.5879749581582592`", ",", 
         "0.020591507307156573`", ",", "0.06857712872340399`", ",", 
         "0.0687619711590242`", ",", "0.571878759690508`", ",", 
         "0.6359233896839924`", ",", "0.9375962289042417`", ",", 
         "0.16445673693285354`", ",", "0.5102326804694365`"}], "}"}], ",", 
       "0.5301171718234576`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.4309766890823124`", ",", "0.8995339271490208`", ",", 
         "0.6954227482235242`", ",", "0.023265620592602027`", ",", 
         "0.8160045734258795`", ",", "0.2929181302361072`", ",", 
         "0.4972593809291675`", ",", "0.02487228441933904`", ",", 
         "0.21111177955399252`", ",", "0.8667375941898963`", ",", 
         "0.9236967721514425`", ",", "0.6405129217230047`", ",", 
         "0.08540362316632771`", ",", "0.9805985670267632`", ",", 
         "0.3357218139931833`", ",", "0.6199214144158481`", ",", 
         "0.016826494442923716`", ",", "0.911836595867739`", ",", 
         "0.7638430543026753`", ",", "0.9839980247318557`", ",", 
         "0.07923026553868211`", ",", "0.7473798589348855`", ",", 
         "0.2536103738332388`", ",", "0.45388085290839814`", ",", 
         "0.6482535764563697`", ",", "0.8478459317858646`", ",", 
         "0.5581876256097146`", ",", "0.4306152323157961`", ",", 
         "0.8322490030304902`", ",", "0.5549278015497575`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.06092824468054705`", ",", "0.40574294789645704`", ",", 
         "0.6211372234764977`", ",", "0.6881902073598611`", ",", 
         "0.1372314725291045`", ",", "0.7652300261734524`", ",", 
         "0.53573360031017`", ",", "0.707591640333098`", ",", 
         "0.8015096585359212`", ",", "0.1453086117576043`", ",", 
         "0.5189071058672463`", ",", "0.7957550444653589`", ",", 
         "0.037666604233245915`", ",", "0.16131058702574858`", ",", 
         "0.4396768403285642`", ",", "0.0483751855304734`", ",", 
         "0.784056230400007`", ",", "0.7074297341173504`", ",", 
         "0.7914232638721945`", ",", "0.20052925374460875`", ",", 
         "0.22586860479029253`", ",", "0.27681450180155437`", ",", 
         "0.9591742608417043`", ",", "0.6456014521948512`", ",", 
         "0.1649403601097455`", ",", "0.8710715539050973`", ",", 
         "0.33803703736520657`", ",", "0.9574112448349901`", ",", 
         "0.02770888758064099`", ",", "0.1058415277316449`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.8023034370550366`", ",", "0.24981960450189214`", ",", 
         "0.2261992290447198`", ",", "0.9605329159740407`", ",", 
         "0.2833963311877903`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "2"}], "}"}]}], "}"}], ",", "0.4540645600365332`",
        ",", "0.1885326248114739`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "55.14676033617421849929166786970041527623`20."}], ",", 
       RowBox[{
       "-", "0.4768324996602837374575795692892836468617170919692682673485`20.\
"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "0.799222328948292`", ",", "0.843719490859226`", ",", 
         "0.40568937450605985`", ",", "0.4044763944114668`", ",", 
         "0.09179259483094157`", ",", "0.0522962269870316`", ",", 
         "0.2051601207614511`", ",", "0.17860778962117427`", ",", 
         "0.8149780930293872`", ",", "0.09312196614532733`", ",", 
         "0.5595586685665999`", ",", "0.013667429511428783`", ",", 
         "0.9439065391242899`", ",", "0.7550849287801208`", ",", 
         "0.6021474237316098`", ",", "0.9859585419307878`", ",", 
         "0.838065011392645`", ",", "0.9527814917250842`", ",", 
         "0.3523278192297176`", ",", "0.759759312886068`", ",", 
         "0.8775320954186044`", ",", "0.669385160537294`", ",", 
         "0.8982632591931844`", ",", "0.5712266880745941`"}], "}"}], ",", 
       "0.07830976647031238`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.8256656696780679`", ",", "0.4925738846871245`", ",", 
         "0.16675029366312727`", ",", "0.9865171716393708`", ",", 
         "0.7733694426910362`", ",", "0.2874137639256734`", ",", 
         "0.988142504041953`", ",", "0.17153907860998358`", ",", 
         "0.6802474765457089`", ",", "0.7278550953590736`", ",", 
         "0.9744750745305242`", ",", "0.22763253948569365`", ",", 
         "0.9251625477655882`", ",", "0.1257076716274638`", ",", 
         "0.9885165325997364`", ",", "0.3895675280930486`", ",", 
         "0.972381056040504`", ",", "0.7733798523977462`", ",", 
         "0.22875721971366844`", ",", "0.5120354326744442`", ",", 
         "0.30299589550321`", ",", "0.8751165932045618`", ",", 
         "0.6575305316390744`", ",", "0.43372566620413183`", ",", 
         "0.4773302258251421`", ",", "0.3825427085174373`", ",", 
         "0.4907802379759471`", ",", "0.447208494564761`", ",", 
         "0.7039607831341058`", ",", "0.09512894459176391`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.5026377339339941`", ",", "0.27566941595477745`", ",", 
         "0.023713306588396852`", ",", "0.36727384923269035`", ",", 
         "0.5281626594034698`", ",", "0.048036876469083806`", ",", 
         "0.09855075882280868`", ",", "0.24156617760522656`", ",", 
         "0.5396461268037335`", ",", "0.6584693483760352`", ",", 
         "0.12616970278230474`", ",", "0.4681863252074803`", ",", 
         "0.310888907090065`", ",", "0.14643391570159095`", ",", 
         "0.8231738072790947`", ",", "0.5930697320029185`", ",", 
         "0.6533583754509906`", ",", "0.7127082494974591`", ",", 
         "0.34584358145395266`", ",", "0.2105270234854812`", ",", 
         "0.16257813747504354`", ",", "0.26549975493269806`", ",", 
         "0.6418827983198468`", ",", "0.11539807889371728`", ",", 
         "0.6599404035410494`", ",", "0.9898303389779206`", ",", 
         "0.61816949173145`", ",", "0.7481242296610269`", ",", 
         "0.13177774413757956`", ",", "0.9417934625088368`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.5196187329086414`", ",", "0.5065580520558004`", ",", 
         "0.5921316173338461`", ",", "0.2833241141328016`", ",", 
         "0.3934490301263366`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "3"}], "}"}]}], "}"}], ",", 
       "0.03837172684832002`", ",", "0.2812427102437811`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "37.2269397117839116560121109548128317054`20."}], ",", 
       RowBox[{
       "-", "0.8443387233214700993598504277494421962901860467809456167743`20.\
"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "0.13689019843121067`", ",", "0.5702752228472419`", ",", 
         "0.4453019948454015`", ",", "0.6278843347927905`", ",", 
         "0.42418194893375155`", ",", "0.22443164139328917`", ",", 
         "0.23477497135992031`", ",", "0.4653061973177469`", ",", 
         "0.15868219400105352`", ",", "0.5825488430734423`", ",", 
         "0.11937689246620305`", ",", "0.8053657937766975`", ",", 
         "0.16885185502313294`", ",", "0.9643793513419923`", ",", 
         "0.3712526628051761`", ",", "0.6735880496391179`", ",", 
         "0.22705839251429616`", ",", "0.44476061843335096`", ",", 
         "0.8646946107493757`", ",", "0.08145643230527182`", ",", 
         "0.9437342783814946`", ",", "0.05131158830701436`", ",", 
         "0.8263228839010557`", ",", "0.8002137220614907`"}], "}"}], ",", 
       "0.806844079950284`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.4810363654597725`", ",", "0.38102088905565423`", ",", 
         "0.17232938726870023`", ",", "0.38266213101653235`", ",", 
         "0.2566047240664834`", ",", "0.1462459176957339`", ",", 
         "0.7070231899509533`", ",", "0.22397993701547883`", ",", 
         "0.674055880993041`", ",", "0.026869025229530854`", ",", 
         "0.9016573961742558`", ",", "0.055128081992345875`", ",", 
         "0.7096765296510488`", ",", "0.6556163624243547`", ",", 
         "0.22806934653513786`", ",", "0.8280696894780497`", ",", 
         "0.26491591121769786`", ",", "0.790921751674979`", ",", 
         "0.14661291422986603`", ",", "0.8843354110965551`", ",", 
         "0.2136043229106835`", ",", "0.9645988677739232`", ",", 
         "0.34639919216837534`", ",", "0.07749133114627124`", ",", 
         "0.732567957450911`", ",", "0.583577978718269`", ",", 
         "0.17406980489967508`", ",", "0.6948292001297389`", ",", 
         "0.4759632333844276`", ",", "0.43733206102253513`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.4670466149487218`", ",", "0.47084926311426006`", ",", 
         "0.8019073523913866`", ",", "0.4104630357930043`", ",", 
         "0.565389218774466`", ",", "0.4157211811219142`", ",", 
         "0.09223082274033773`", ",", "0.7548466733686495`", ",", 
         "0.3373198722393282`", ",", "0.5876514916438645`", ",", 
         "0.8273149115226399`", ",", "0.9639249216936706`", ",", 
         "0.19070695800946216`", ",", "0.7033160805473093`", ",", 
         "0.6137105886119564`", ",", "0.9993260539197473`", ",", 
         "0.8443077658410868`", ",", "0.6258247494010382`", ",", 
         "0.8811426311610454`", ",", "0.4157480752014783`", ",", 
         "0.6702379609414117`", ",", "0.9309955492712992`", ",", 
         "0.4051793977766179`", ",", "0.9784160141789431`", ",", 
         "0.20319134599268993`", ",", "0.4601462861570391`", ",", 
         "0.6032720453852314`", ",", "0.5679529783859388`", ",", 
         "0.6378021272182239`", ",", "0.04442510503512493`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.5110412226448936`", ",", "0.8131063050172893`", ",", 
         "0.30048225497889575`", ",", "0.45677361339126044`", ",", 
         "0.6837263111222537`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"3", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "3"}], "}"}]}], "}"}], ",", "0.8491813833236187`",
        ",", "0.10977529696943357`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "105.92714695213845007105698172770406747436`20."}], ",", 
       RowBox[{
       "-", "0.0051218544519903359742902690497097896796252491924406058388`20.\
"}]}], "}"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.527814904975679*^9, {3.52781546102081*^9, 3.527815490588258*^9}, {
   3.527879642218721*^9, 3.5278796473210907`*^9}, 3.5280555096143103`*^9, 
   3.528056768061294*^9}]
}, Open  ]]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["EMstep (log\[Beta] and q)", "Subsection",
 CellChangeTimes->{{3.525095319326301*^9, 3.525095320059371*^9}, {
  3.52509801721535*^9, 3.525098017925005*^9}, {3.525112791223256*^9, 
  3.525112791828678*^9}, {3.525115293972691*^9, 3.525115296179682*^9}, {
  3.5251184948850317`*^9, 3.5251184992621593`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "emsteponce", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"emsteponce", "[", 
    RowBox[{
    "loga_", ",", " ", "log\[Beta]_", ",", " ", "c_", ",", " ", "d_", ",", 
     " ", "pz_", ",", " ", "logpriorz_", ",", " ", "clamp_", ",", " ", "r_", 
     ",", "  ", "plog\[Beta]_"}], "]"}], " ", ":=", " ", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"q", ",", " ", "pznew", ",", " ", "log\[Beta]new"}], "}"}], ",",
      "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"pznew", " ", "=", " ", 
       RowBox[{"estep", "[", 
        RowBox[{
        "loga", ",", " ", "log\[Beta]", ",", " ", "c", ",", " ", "d", ",", 
         " ", "logpriorz", ",", " ", "clamp", ",", " ", "r"}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"{", " ", 
        RowBox[{"q", ",", " ", "log\[Beta]new"}], " ", "}"}], " ", "=", " ", 
       RowBox[{"mstep", "[", 
        RowBox[{
        "loga", ",", " ", "log\[Beta]", ",", " ", "c", ",", " ", "d", ",", 
         " ", "pz", ",", " ", "r", ",", "  ", "plog\[Beta]"}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"{", " ", 
       RowBox[{"q", ",", " ", "pznew", ",", " ", "log\[Beta]new"}], " ", 
       "}"}]}]}], "\[IndentingNewLine]", "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", "emstepf", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"emstepf", "[", "tuple_", "]"}], " ", ":=", " ", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", " ", 
      RowBox[{
      "q", ",", "loga", ",", " ", "log\[Beta]", ",", " ", "c", ",", " ", "d", 
       ",", " ", "pz", ",", " ", "logpriorz", ",", " ", "clamp", ",", " ", 
       "r", ",", "  ", "plog\[Beta]", ",", " ", "qnew", ",", " ", "pznew", 
       ",", " ", "log\[Beta]new"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"{", " ", 
        RowBox[{
        "q", ",", "loga", ",", " ", "log\[Beta]", ",", " ", "c", ",", " ", 
         "d", ",", " ", "pz", ",", " ", "logpriorz", ",", " ", "clamp", ",", 
         " ", "r", ",", "  ", "plog\[Beta]"}], " ", "}"}], " ", "=", " ", 
       "tuple"}], ";", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"{", " ", 
        RowBox[{"qnew", ",", " ", "pznew", ",", " ", "log\[Beta]new"}], " ", 
        "}"}], " ", "=", " ", 
       RowBox[{"emsteponce", "[", 
        RowBox[{
        "loga", ",", " ", "log\[Beta]", ",", " ", "c", ",", " ", "d", ",", 
         " ", "pz", ",", " ", "logpriorz", ",", " ", "clamp", ",", " ", "r", 
         ",", "  ", "plog\[Beta]"}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"{", " ", 
       RowBox[{
       "qnew", ",", "loga", ",", " ", "log\[Beta]new", ",", " ", "c", ",", 
        " ", "d", ",", " ", "pznew", ",", " ", "logpriorz", ",", " ", "clamp",
         ",", " ", "r", ",", "  ", "plog\[Beta]"}], "}"}]}]}], " ", 
    "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", "emstep", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"emstep", "[", 
   RowBox[{
   "tol_", ",", " ", "loga_", ",", " ", "log\[Beta]_", ",", " ", "c_", ",", 
    " ", "d_", ",", " ", "pz_", ",", " ", "logpriorz_", ",", " ", "clamp_", 
    ",", " ", "r_", ",", "  ", "plog\[Beta]_"}], "]"}], ":=", " ", 
  RowBox[{
   RowBox[{"FixedPoint", "[", 
    RowBox[{"emstepf", ",", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"qfunc", "[", 
        RowBox[{
        "loga", ",", " ", "log\[Beta]", ",", "c", ",", " ", "d", ",", " ", 
         "pz", ",", " ", "r", ",", " ", "plog\[Beta]"}], "]"}], ",", " ", 
       "loga", ",", " ", "log\[Beta]", ",", " ", "c", ",", " ", "d", ",", " ",
        "pz", ",", " ", "logpriorz", ",", " ", "clamp", ",", " ", "r", ",", 
       "  ", "plog\[Beta]"}], "}"}], ",", 
     RowBox[{"SameTest", "\[Rule]", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"Abs", "[", 
          RowBox[{
           RowBox[{"#1", "[", 
            RowBox[{"[", "1", "]"}], "]"}], " ", "-", " ", 
           RowBox[{"#2", "[", 
            RowBox[{"[", "1", "]"}], "]"}]}], "]"}], " ", "<", " ", 
         RowBox[{"tol", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"Abs", "[", 
             RowBox[{"#1", "[", 
              RowBox[{"[", "1", "]"}], "]"}], "]"}], " ", "+", " ", 
            RowBox[{"Abs", "[", 
             RowBox[{"#2", "[", 
              RowBox[{"[", "1", "]"}], "]"}], "]"}]}], ")"}]}]}], "&"}], 
       ")"}]}]}], "]"}], " ", "//", " ", 
   RowBox[{
    RowBox[{"{", " ", 
     RowBox[{
      RowBox[{"#", "[", 
       RowBox[{"[", "1", "]"}], "]"}], ",", " ", 
      RowBox[{"#", "[", 
       RowBox[{"[", "3", "]"}], "]"}], ",", " ", 
      RowBox[{"#", "[", 
       RowBox[{"[", "6", "]"}], "]"}]}], "}"}], "&"}]}]}]}], "Input",
 CellChangeTimes->{{3.525118502664279*^9, 3.5251189229771748`*^9}, {
   3.525118971729904*^9, 3.52511906365032*^9}, 3.525119216489663*^9, {
   3.52511927699596*^9, 3.525119385656954*^9}, {3.5251194234202023`*^9, 
   3.5251194314497128`*^9}, {3.525119463132557*^9, 3.525119463482739*^9}, {
   3.525119510764413*^9, 3.525119696006434*^9}, {3.52511973278708*^9, 
   3.5251198264569597`*^9}, {3.5251198791493273`*^9, 3.525119881275783*^9}, {
   3.525119955256009*^9, 3.525119993679954*^9}, {3.527878505814899*^9, 
   3.527878597817851*^9}, {3.5278786714580183`*^9, 3.5278787990509787`*^9}, {
   3.527879342888323*^9, 3.527879363807232*^9}, {3.527879738307363*^9, 
   3.527879748680273*^9}, {3.5278805552682123`*^9, 3.5278805554332657`*^9}, {
   3.527881155489005*^9, 3.5278811557740803`*^9}, {3.527881200661824*^9, 
   3.527881201110323*^9}, {3.527881285113687*^9, 3.527881285326359*^9}}],

Cell[CellGroupData[{

Cell["Test Vectors for emstep", "Subsubsection",
 CellChangeTimes->{{3.50401932583255*^9, 3.504019328703233*^9}, {
   3.52781488740316*^9, 3.527814887815423*^9}, 3.5278797736427803`*^9}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "nworkers", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nworkers", " ", "=", " ", "4"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", "nlabels", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nlabels", " ", "=", " ", "5"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", "nratings", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nratings", " ", "=", " ", "8"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", "rank", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"rank", " ", "=", " ", "6"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"{", " ", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"ListQ", "[", "#", "]"}], " ", "&&", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"!", " ", 
             RowBox[{"ListQ", "[", 
              RowBox[{"#", "[", 
               RowBox[{"[", "1", "]"}], "]"}], "]"}]}], " ", "||", " ", 
            RowBox[{"!", " ", 
             RowBox[{"IntegerQ", "[", 
              RowBox[{
               RowBox[{"#", "[", 
                RowBox[{"[", "1", "]"}], "]"}], "[", 
               RowBox[{"[", "1", "]"}], "]"}], "]"}]}]}], ")"}]}], ",", " ", 
         RowBox[{"Flatten", "[", "#", "]"}], ",", " ", "#"}], "]"}], "&"}], 
      " ", "/@", " ", "#"}], ",", " ", "\[IndentingNewLine]", 
     RowBox[{"emstep", "[", "\[IndentingNewLine]", 
      RowBox[{"0.00001", ",", " ", 
       RowBox[{"(*", " ", "tol", " ", "*)"}], "\[IndentingNewLine]", 
       RowBox[{"#", "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", 
       RowBox[{"(*", " ", "loga", " ", "*)"}], "\[IndentingNewLine]", 
       RowBox[{"#", "[", 
        RowBox[{"[", "2", "]"}], "]"}], ",", 
       RowBox[{"(*", " ", "log\[Beta]", " ", "*)"}], "\[IndentingNewLine]", 
       RowBox[{"Transpose", "[", 
        RowBox[{"#", "[", 
         RowBox[{"[", "3", "]"}], "]"}], "]"}], ",", 
       RowBox[{"(*", " ", "c", " ", "*)"}], "\[IndentingNewLine]", 
       RowBox[{"#", "[", 
        RowBox[{"[", "4", "]"}], "]"}], ",", 
       RowBox[{"(*", " ", "d", " ", "*)"}], "\[IndentingNewLine]", 
       RowBox[{"#", "[", 
        RowBox[{"[", "5", "]"}], "]"}], ",", 
       RowBox[{"(*", " ", "pz", " ", "*)"}], "\[IndentingNewLine]", 
       RowBox[{"#", "[", 
        RowBox[{"[", "6", "]"}], "]"}], ",", 
       RowBox[{"(*", " ", "logpriorz", " ", "*)"}], "\[IndentingNewLine]", 
       RowBox[{"#", "[", 
        RowBox[{"[", "7", "]"}], "]"}], ",", " ", 
       RowBox[{"(*", " ", "clamp", " ", "*)"}], "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{
         RowBox[{"{", " ", 
          RowBox[{
           RowBox[{"1", " ", "+", " ", 
            RowBox[{"#", "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], ",", " ", 
           RowBox[{"1", " ", "+", " ", 
            RowBox[{"#", "[", 
             RowBox[{"[", "2", "]"}], "]"}]}]}], " ", "}"}], "&"}], " ", "/@",
         " ", 
        RowBox[{"#", "[", 
         RowBox[{"[", "8", "]"}], "]"}]}], ",", " ", 
       RowBox[{"(*", " ", "r", " ", "*)"}], "\[IndentingNewLine]", 
       RowBox[{"NormalDistribution", "[", 
        RowBox[{
         RowBox[{"#", "[", 
          RowBox[{"[", "9", "]"}], "]"}], ",", " ", 
         RowBox[{"#", "[", 
          RowBox[{"[", "10", "]"}], "]"}]}], "]"}]}], " ", 
      RowBox[{"(*", " ", "plog\[Beta]", " ", "*)"}], "\[IndentingNewLine]", 
      "]"}]}], "\[IndentingNewLine]", "}"}], " ", "&"}], " ", "/@", 
  "\[IndentingNewLine]", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"{", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"Random", "[", "]"}], ",", " ", 
          RowBox[{"{", " ", 
           RowBox[{"i", ",", " ", "1", ",", " ", "rank"}], " ", "}"}]}], 
         "]"}], ",", " ", 
        RowBox[{"{", " ", 
         RowBox[{"j", ",", " ", "1", ",", " ", "nworkers"}], " ", "}"}]}], 
       "]"}], ",", " ", 
      RowBox[{"(*", " ", "loga", " ", "*)"}], "\[IndentingNewLine]", 
      RowBox[{"Random", "[", "]"}], ",", " ", 
      RowBox[{"(*", " ", "log\[Beta]", " ", "*)"}], "\[IndentingNewLine]", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"Random", "[", "]"}], ",", " ", 
          RowBox[{"{", " ", 
           RowBox[{"i", ",", " ", "1", ",", " ", "nlabels"}], " ", "}"}]}], 
         "]"}], ",", " ", 
        RowBox[{"{", " ", 
         RowBox[{"j", ",", " ", "1", ",", " ", "rank"}], " ", "}"}]}], "]"}], 
      ",", " ", 
      RowBox[{"(*", " ", "c", " ", "*)"}], "\[IndentingNewLine]", 
      RowBox[{"Table", " ", "[", 
       RowBox[{
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"Random", "[", "]"}], ",", " ", 
          RowBox[{"{", " ", 
           RowBox[{"i", ",", " ", "1", ",", " ", "nlabels"}], " ", "}"}]}], 
         "]"}], ",", " ", 
        RowBox[{"{", " ", 
         RowBox[{"j", ",", " ", "1", ",", " ", "rank"}], " ", "}"}]}], "]"}], 
      ",", " ", 
      RowBox[{"(*", " ", "d", " ", "*)"}], "\[IndentingNewLine]", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"Random", "[", "]"}], ",", " ", 
        RowBox[{"{", " ", 
         RowBox[{"i", ",", " ", "1", ",", " ", "nlabels"}], " ", "}"}]}], 
       "]"}], ",", " ", 
      RowBox[{"(*", " ", "pz", " ", "*)"}], "\[IndentingNewLine]", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"Random", "[", "]"}], ",", " ", 
        RowBox[{"{", " ", 
         RowBox[{"i", ",", " ", "1", ",", " ", "nlabels"}], " ", "}"}]}], 
       "]"}], ",", " ", 
      RowBox[{"(*", " ", "logpriorz", " ", "*)"}], "\[IndentingNewLine]", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"Random", "[", "]"}], " ", "<", " ", "0.5"}], ",", " ", 
        RowBox[{"-", "1"}], ",", " ", 
        RowBox[{"Random", "[", 
         RowBox[{"Integer", ",", " ", 
          RowBox[{"nlabels", " ", "-", " ", "1"}]}], "]"}]}], "]"}], ",", 
      RowBox[{"(*", " ", "clamp", " ", "*)"}], "\[IndentingNewLine]", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Random", "[", 
           RowBox[{"Integer", ",", " ", 
            RowBox[{"nworkers", " ", "-", " ", "1"}]}], "]"}], ",", 
          "\[IndentingNewLine]", "           ", 
          RowBox[{"Random", "[", 
           RowBox[{"Integer", ",", " ", 
            RowBox[{"nlabels", " ", "-", " ", "1"}]}], "]"}]}], " ", "}"}], 
        ",", "\[IndentingNewLine]", "            ", 
        RowBox[{"{", " ", 
         RowBox[{"i", ",", " ", "1", ",", " ", "nratings"}], " ", "}"}]}], 
       "]"}], ",", " ", 
      RowBox[{"(*", " ", "r", " ", "*)"}], "\[IndentingNewLine]", 
      RowBox[{"Random", "[", "]"}], ",", " ", 
      RowBox[{"(*", " ", 
       RowBox[{"mean", " ", "of", " ", "plog\[Beta]"}], " ", "*)"}], 
      "\[IndentingNewLine]", 
      RowBox[{"Random", "[", "]"}]}], " ", 
     RowBox[{"(*", " ", 
      RowBox[{"var", " ", "of", " ", "plog\[Beta]"}], " ", "*)"}], 
     "\[IndentingNewLine]", "}"}], ",", " ", 
    RowBox[{"{", " ", 
     RowBox[{"foo", ",", " ", "1", ",", " ", "10"}], " ", "}"}]}], 
   "]"}]}]}], "Input",
 CellChangeTimes->{{3.5213198023674088`*^9, 3.521319806678164*^9}, {
   3.521319841278997*^9, 3.521319998143119*^9}, {3.521320056026449*^9, 
   3.5213202470344133`*^9}, {3.5213203034771013`*^9, 3.521320412671164*^9}, {
   3.521320450924569*^9, 3.521320509766828*^9}, {3.521320561841152*^9, 
   3.521320581102922*^9}, {3.5213206273661747`*^9, 3.521320735212844*^9}, {
   3.521320879372446*^9, 3.521320879723878*^9}, {3.521320942894346*^9, 
   3.5213209435681467`*^9}, {3.521321247812214*^9, 3.521321378312883*^9}, {
   3.52132197532421*^9, 3.521321997318965*^9}, {3.521322607804085*^9, 
   3.5213226153349524`*^9}, {3.5213226506176558`*^9, 3.52132268329023*^9}, {
   3.521377841284711*^9, 3.521377855658619*^9}, 3.521379982613592*^9, 
   3.52250805332108*^9, 3.522508097347521*^9, {3.527813134446953*^9, 
   3.5278132459573183`*^9}, {3.527813305512074*^9, 3.527813352642288*^9}, {
   3.527814063258554*^9, 3.527814084466427*^9}, {3.527814316019315*^9, 
   3.5278143618339787`*^9}, {3.527814431327695*^9, 3.527814463267811*^9}, {
   3.527814893526133*^9, 3.5278149045941153`*^9}, {3.527815459709106*^9, 
   3.527815489972472*^9}, {3.527879632069026*^9, 3.5278796461978197`*^9}, {
   3.527879776208625*^9, 3.52787980048142*^9}, {3.527879860197106*^9, 
   3.527879934446316*^9}, 3.527881315987722*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"FindMaximum", "::", "\<\"precw\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"The precision of the \
argument function (\\\\\\\"\\\", \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(-\\(\\((\\(\\(1.2325552369629`\
 \[InvisibleSpace]\\)\\) + \\(\\(Log[\\(\\(14.080899951190016`\\\\ \
\[ExponentialE]\\^\\(\\(\\(-622.8890525911651`\\)\\)\\\\ \\(Plus[\\(\\(\
\[LeftSkeleton] 2 \[RightSkeleton]\\)\\)]\\)\\^2\\)\\)\\)]\\)\\) + \\(\\(\
\[LeftSkeleton] 34 \[RightSkeleton]\\)\\) + \\(\\(0.7802280968663962`\\\\ \\(\
\\(Log[\\(\\(\[ExponentialE]\\^\\(\\(\\(-2.9636729393007126`\\)\\)\\\\ \
\\(\\(Power[\\(\\(\[LeftSkeleton] 2 \[RightSkeleton]\\)\\)]\\)\\)\\)\\/\\(1 + \
\\(\\(Power[\\(\\(\[LeftSkeleton] 2 \[RightSkeleton]\\)\\)]\\)\\) + \
\\(\\(Power[\\(\\(\[LeftSkeleton] 2 \[RightSkeleton]\\)\\)]\\)\\) + \
\\(\\(Power[\\(\\(\[LeftSkeleton] 2 \[RightSkeleton]\\)\\)]\\)\\) + \
\\(\\(Power[\\(\\(\[LeftSkeleton] 2 \
\[RightSkeleton]\\)\\)]\\)\\)\\)\\)\\)]\\)\\)\\)\\))\\)\\)\\), \\\"MT\\\"]\\)\
\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\") is less than WorkingPrecision (\\\\\
\\\"\\\", \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(20.`\\), \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\").\\\\\\\"\\\", \
\\\"MT\\\"]\\) \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/precw\\\", ButtonNote -> \
\\\"FindMaximum::precw\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.527879934931082*^9, 3.52788055712149*^9, 3.527881157835082*^9, 
   3.527881207087006*^9, {3.5278812877028303`*^9, 3.527881316352515*^9}, 
   3.528055572699682*^9, 3.528056831605085*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"FindMaximum", "::", "\<\"precw\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"The precision of the \
argument function (\\\\\\\"\\\", \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(-\\(\\((2.525967652994777`*^-\
9 + \\(\\(Log[\\(\\(14.080899951190016`\\\\ \
\[ExponentialE]\\^\\(\\(\\(-622.8890525911651`\\)\\)\\\\ \\(Plus[\\(\\(\
\[LeftSkeleton] 2 \[RightSkeleton]\\)\\)]\\)\\^2\\)\\)\\)]\\)\\) + \\(\\(\
\[LeftSkeleton] 34 \[RightSkeleton]\\)\\) + \\(\\(2.894183963056571`*^-12\\\\ \
\\(\\(Log[\\(\\(\[ExponentialE]\\^\\(\\(\\(-2.9636729393007126`\\)\\)\\\\ \\(\
\\(Power[\\(\\(\[LeftSkeleton] 2 \[RightSkeleton]\\)\\)]\\)\\)\\)\\/\\(1 + \
\\(\\(Power[\\(\\(\[LeftSkeleton] 2 \[RightSkeleton]\\)\\)]\\)\\) + \
\\(\\(Power[\\(\\(\[LeftSkeleton] 2 \[RightSkeleton]\\)\\)]\\)\\) + \
\\(\\(Power[\\(\\(\[LeftSkeleton] 2 \[RightSkeleton]\\)\\)]\\)\\) + \
\\(\\(Power[\\(\\(\[LeftSkeleton] 2 \
\[RightSkeleton]\\)\\)]\\)\\)\\)\\)\\)]\\)\\)\\)\\))\\)\\)\\), \\\"MT\\\"]\\)\
\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\") is less than WorkingPrecision (\\\\\
\\\"\\\", \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(20.`\\), \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\").\\\\\\\"\\\", \
\\\"MT\\\"]\\) \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/precw\\\", ButtonNote -> \
\\\"FindMaximum::precw\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.527879934931082*^9, 3.52788055712149*^9, 3.527881157835082*^9, 
   3.527881207087006*^9, {3.5278812877028303`*^9, 3.527881316352515*^9}, 
   3.528055572699682*^9, 3.5280568316779137`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"FindMaximum", "::", "\<\"precw\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"The precision of the \
argument function (\\\\\\\"\\\", \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(-\\(\\((4.227805832782982`*^-\
9 + \\(\\(Log[\\(\\(14.080899951190016`\\\\ \
\[ExponentialE]\\^\\(\\(\\(-622.8890525911651`\\)\\)\\\\ \\(Plus[\\(\\(\
\[LeftSkeleton] 2 \[RightSkeleton]\\)\\)]\\)\\^2\\)\\)\\)]\\)\\) + \\(\\(\
\[LeftSkeleton] 34 \[RightSkeleton]\\)\\) + \
\\(\\(5.2623278416352114`*^-12\\\\ \
\\(\\(Log[\\(\\(\[ExponentialE]\\^\\(\\(\\(-2.9636729393007126`\\)\\)\\\\ \\(\
\\(Power[\\(\\(\[LeftSkeleton] 2 \[RightSkeleton]\\)\\)]\\)\\)\\)\\/\\(1 + \
\\(\\(Power[\\(\\(\[LeftSkeleton] 2 \[RightSkeleton]\\)\\)]\\)\\) + \
\\(\\(Power[\\(\\(\[LeftSkeleton] 2 \[RightSkeleton]\\)\\)]\\)\\) + \
\\(\\(Power[\\(\\(\[LeftSkeleton] 2 \[RightSkeleton]\\)\\)]\\)\\) + \
\\(\\(Power[\\(\\(\[LeftSkeleton] 2 \
\[RightSkeleton]\\)\\)]\\)\\)\\)\\)\\)]\\)\\)\\)\\))\\)\\)\\), \\\"MT\\\"]\\)\
\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\") is less than WorkingPrecision (\\\\\
\\\"\\\", \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(20.`\\), \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\").\\\\\\\"\\\", \
\\\"MT\\\"]\\) \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/precw\\\", ButtonNote -> \
\\\"FindMaximum::precw\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.527879934931082*^9, 3.52788055712149*^9, 3.527881157835082*^9, 
   3.527881207087006*^9, {3.5278812877028303`*^9, 3.527881316352515*^9}, 
   3.528055572699682*^9, 3.528056831796419*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"General", "::", "\<\"stop\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"Further output of \\\\\\\"\\\
\", \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(FindMaximum :: \
\\\"precw\\\"\\), \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\" will \
be suppressed during this calculation.\\\\\\\"\\\", \\\"MT\\\"]\\) \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/stop\\\", \
ButtonNote -> \\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.527879934931082*^9, 3.52788055712149*^9, 3.527881157835082*^9, 
   3.527881207087006*^9, {3.5278812877028303`*^9, 3.527881316352515*^9}, 
   3.528055572699682*^9, 3.528056831813489*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "0.7534575328439511`", ",", "0.07001572251029733`", ",", 
         "0.8498553294038714`", ",", "0.26546753112834676`", ",", 
         "0.12763278344291298`", ",", "0.1888730913492519`", ",", 
         "0.4341072542023931`", ",", "0.595229570186935`", ",", 
         "0.19663723417161377`", ",", "0.7836936935726341`", ",", 
         "0.45569124002345`", ",", "0.39203822419424506`", ",", 
         "0.7364909480145746`", ",", "0.1804216481874027`", ",", 
         "0.8877382616375111`", ",", "0.7542360969760211`", ",", 
         "0.6920658429794497`", ",", "0.6693804255425091`", ",", 
         "0.0746319566202219`", ",", "0.45375384199712543`", ",", 
         "0.23529222958818927`", ",", "0.9856541144202554`", ",", 
         "0.2254505732966032`", ",", "0.3439785450276919`"}], "}"}], ",", 
       "0.4818346967442382`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.915638391909958`", ",", "0.3755952438927318`", ",", 
         "0.07851101389934512`", ",", "0.35420191330132517`", ",", 
         "0.7267653005607061`", ",", "0.9414879896903386`", ",", 
         "0.4832814437124101`", ",", "0.15756467912971142`", ",", 
         "0.9430716069880721`", ",", "0.4857967496668887`", ",", 
         "0.09124321951816504`", ",", "0.4210737311151368`", ",", 
         "0.7626499588006693`", ",", "0.5980584880293774`", ",", 
         "0.3370071225421439`", ",", "0.7290078881356871`", ",", 
         "0.09326953325816029`", ",", "0.5234265314091556`", ",", 
         "0.8832532805450184`", ",", "0.4937156585474978`", ",", 
         "0.10761541883790492`", ",", "0.2979759581125524`", ",", 
         "0.5392747355173266`", ",", "0.01188096180325967`", ",", 
         "0.19197702692794688`", ",", "0.9223807142198206`", ",", 
         "0.46076372161798146`", ",", "0.6576790485019345`", ",", 
         "0.4652117263672408`", ",", "0.980892724529482`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.9774822779055714`", ",", "0.5001143693722231`", ",", 
         "0.5221401193791687`", ",", "0.49509597486259327`", ",", 
         "0.8862390583874064`", ",", "0.07904063825708625`", ",", 
         "0.7594901605784993`", ",", "0.8970374868332158`", ",", 
         "0.5492319358452624`", ",", "0.35003275012139917`", ",", 
         "0.666220627320339`", ",", "0.3736109554240602`", ",", 
         "0.665978655300244`", ",", "0.8563170915739013`", ",", 
         "0.5586052084824341`", ",", "0.07563499731150777`", ",", 
         "0.1267039197829174`", ",", "0.8444361297706416`", ",", 
         "0.3666281815544872`", ",", "0.15325428309168715`", ",", 
         "0.6659401981649359`", ",", "0.18675708126870716`", ",", 
         "0.9014164551872464`", ",", "0.1723615585622052`", ",", 
         "0.6884579202593646`", ",", "0.6866427118964841`", ",", 
         "0.37927633580807774`", ",", "0.677265583699612`", ",", 
         "0.8022188618719582`", ",", "0.6076020736393979`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.6197861752295785`", ",", "0.7802280968663962`", ",", 
         "0.2529869260266958`", ",", "0.2575693235179987`", ",", 
         "0.9535655479092394`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.40661714144233596`", ",", "0.5870082707264518`", ",", 
         "0.4012522319440974`", ",", "0.39496033942680536`", ",", 
         "0.3309821441308282`"}], "}"}], ",", 
       RowBox[{"-", "1"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"3", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "3"}], "}"}]}], "}"}], ",", "0.5568161021734558`",
        ",", "0.02833215787231817`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "17.27820672107784508807653424915284998105`20."}], ",", 
       "0.54124214449138466713075154511016203338845349816177299651`20.", ",", 
       
       RowBox[{"{", 
        RowBox[{
        "1.7462987357963582`*^-11", ",", "5.72577503468794`*^-13", ",", 
         "5.93501974190158`*^-12", ",", "0.999999999976029`", ",", 
         "4.656513524285665`*^-16"}], "}"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "0.17772786103914104`", ",", "0.7943641527785985`", ",", 
         "0.37005902090474857`", ",", "0.12691570268507174`", ",", 
         "0.005366302476935831`", ",", "0.10590623251923395`", ",", 
         "0.6834163090082644`", ",", "0.747639366876994`", ",", 
         "0.3281007187773239`", ",", "0.3036873706472757`", ",", 
         "0.07581423536886663`", ",", "0.12785319164741552`", ",", 
         "0.5478726219109278`", ",", "0.0507004446205799`", ",", 
         "0.8182449118508679`", ",", "0.17428764373817607`", ",", 
         "0.1412554804685918`", ",", "0.4636921738941281`", ",", 
         "0.4169926799067705`", ",", "0.7793273043113706`", ",", 
         "0.8102733363377636`", ",", "0.0033878229505936363`", ",", 
         "0.8601765777333148`", ",", "0.7509951464390525`"}], "}"}], ",", 
       "0.6325454752986226`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.20902367017199514`", ",", "0.49011755682856617`", ",", 
         "0.6240794437539808`", ",", "0.6271791728216868`", ",", 
         "0.10311743765276117`", ",", "0.8067012478203017`", ",", 
         "0.8764400768769868`", ",", "0.29907845404436284`", ",", 
         "0.7994300670054855`", ",", "0.7308870124514351`", ",", 
         "0.7485868852295713`", ",", "0.7512058321334351`", ",", 
         "0.7487296223849056`", ",", "0.9126421006005672`", ",", 
         "0.5742992414913952`", ",", "0.6099503516648432`", ",", 
         "0.2850374484907775`", ",", "0.49564942069379664`", ",", 
         "0.7949719371800246`", ",", "0.7996770153270797`", ",", 
         "0.28164962554018386`", ",", "0.6354728429604819`", ",", 
         "0.043976790740972`", ",", "0.16713154002845712`", ",", 
         "0.07262595536818875`", ",", "0.14535528613191573`", ",", 
         "0.4198973469869912`", ",", "0.5399523672067704`", ",", 
         "0.9695085177154276`", ",", "0.33865403831161406`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.5434572701100044`", ",", "0.24087391316240755`", ",", 
         "0.1700784507099421`", ",", "0.6077670258601789`", ",", 
         "0.794870384880433`", ",", "0.48966808102897247`", ",", 
         "0.4213488283250365`", ",", "0.6951249252596119`", ",", 
         "0.22057114338903785`", ",", "0.8797177293641292`", ",", 
         "0.136311379834259`", ",", "0.1994755045658152`", ",", 
         "0.4255992062090133`", ",", "0.08004071403704953`", ",", 
         "0.8546617542940751`", ",", "0.5640026616053333`", ",", 
         "0.3816224154680413`", ",", "0.9129091740085924`", ",", 
         "0.7820357989258864`", ",", "0.4186473754734176`", ",", 
         "0.9617250684810501`", ",", "0.372956806801822`", ",", 
         "0.8125272812104588`", ",", "0.07999333716180355`", ",", 
         "0.4182677983710457`", ",", "0.13208289363941447`", ",", 
         "0.6424488305005167`", ",", "0.47222631130162457`", ",", 
         "0.6233974134906126`", ",", "0.642414812610442`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.2211000021754802`", ",", "0.7771013860420127`", ",", 
         "0.40282627010157473`", ",", "0.7626970832463128`", ",", 
         "0.08478862234122118`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.5776258814761975`", ",", "0.9772270638925614`", ",", 
         "0.6826563692092633`", ",", "0.23012686804714605`", ",", 
         "0.013623219870864213`"}], "}"}], ",", "0", ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"3", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "1"}], "}"}]}], "}"}], ",", "0.7697471952006708`",
        ",", "0.4480910691212596`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "21.65704397287761887139858735678676196244`20."}], ",", 
       RowBox[{
       "-", "0.6588958340620436694698105564081782305167393890185639975566`20.\
"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.9998746055984904`", ",", "0.00005626845306560718`", ",", 
         "4.190901672742103`*^-6", ",", "0.0000644459040566514`", ",", 
         "4.891427146173144`*^-7"}], "}"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "0.5949758443974467`", ",", "0.63387957994347`", ",", 
         "0.39679038839884884`", ",", "0.6355637879108008`", ",", 
         "0.5149825072356431`", ",", "0.21561178157242428`", ",", 
         "0.26470749475943434`", ",", "0.9931149574102841`", ",", 
         "0.042756195934018484`", ",", "0.5922143680818117`", ",", 
         "0.6222926821489924`", ",", "0.7720149552348039`", ",", 
         "0.26565480989200574`", ",", "0.1893880979802369`", ",", 
         "0.8595955989026796`", ",", "0.6872263328935827`", ",", 
         "0.6880289284158082`", ",", "0.21216103408767548`", ",", 
         "0.17693922969341627`", ",", "0.45709946484643665`", ",", 
         "0.674405708544944`", ",", "0.6165563856631554`", ",", 
         "0.4071920344927454`", ",", "0.009008395725176989`"}], "}"}], ",", 
       "0.07942986414749739`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.9826768057196854`", ",", "0.010401646093896587`", ",", 
         "0.37344460781437616`", ",", "0.5644473569118543`", ",", 
         "0.7670650241472611`", ",", "0.7456941513344623`", ",", 
         "0.3803296504040921`", ",", "0.5216911609778359`", ",", 
         "0.17485065606544942`", ",", "0.12340146918546992`", ",", 
         "0.6083146951692883`", ",", "0.2560363510858301`", ",", 
         "0.9854625580852125`", ",", "0.2638058702827904`", ",", 
         "0.9210883622757056`", ",", "0.5680074226700219`", ",", 
         "0.773301523997537`", ",", "0.08686664058937413`", ",", 
         "0.46398889742926896`", ",", "0.8936017141250778`", ",", 
         "0.15674513833438167`", ",", "0.6796746060966287`", ",", 
         "0.454980501704092`", ",", "0.8141718499775805`", ",", 
         "0.17406833261469631`", ",", "0.6692729600027322`", ",", 
         "0.08153589388971579`", ",", "0.24972449306572617`", ",", 
         "0.40700330846743527`", ",", "0.9235788086682699`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.7012062434856237`", ",", "0.7280333320878903`", ",", 
         "0.23215265240198585`", ",", "0.8001773394828`", ",", 
         "0.09289154831633542`", ",", "0.4719969810020602`", ",", 
         "0.24669009431677336`", ",", "0.5363714692000096`", ",", 
         "0.17180318604062983`", ",", "0.9039895583320383`", ",", 
         "0.4733885703192363`", ",", "0.44950482861063545`", ",", 
         "0.7078142886113609`", ",", "0.010387844206960456`", ",", 
         "0.3166434319848546`", ",", "0.7698302225140067`", ",", 
         "0.25283378690726893`", ",", "0.19621599422937996`", ",", 
         "0.14257509937015833`", ",", "0.10055726251127459`", ",", 
         "0.17129789301755313`", ",", "0.9464915011636538`", ",", 
         "0.7355717909027231`", ",", "0.1769784538430047`", ",", 
         "0.4700916495319295`", ",", "0.2184581690757635`", ",", 
         "0.5034191385007373`", ",", "0.37680111436020475`", ",", 
         "0.37720010121559405`", ",", "0.7464611880737033`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.2567290441839639`", ",", "0.8404296451601951`", ",", 
         "0.20539691517496422`", ",", "0.8424716297416649`", ",", 
         "0.7833404738647276`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.39092481654955974`", ",", "0.49758262656360336`", ",", 
         "0.8320837855347045`", ",", "0.46669704187987293`", ",", 
         "0.621094594035553`"}], "}"}], ",", 
       RowBox[{"-", "1"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "4"}], "}"}]}], "}"}], ",", "0.6358677913053246`",
        ",", "0.3241219425097146`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "18.1528514390691851648318122995445231183`20."}], ",", 
       RowBox[{
       "-", "0.2139401003892524565250859492888020337669213533877726901914`20.\
"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.00039359973879485294`", ",", "0.9693088054875798`", ",", 
         "0.005021000018365884`", ",", "0.02465367672790709`", ",", 
         "0.0006229180273524349`"}], "}"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "0.5205373315242784`", ",", "0.07345094663878127`", ",", 
         "0.6893762901416707`", ",", "0.5885501516069915`", ",", 
         "0.3435588776812737`", ",", "0.6033592971068518`", ",", 
         "0.47091812106590725`", ",", "0.0851310131062543`", ",", 
         "0.966757763321069`", ",", "0.22615919589125774`", ",", 
         "0.7244569329922039`", ",", "0.8284019689222905`", ",", 
         "0.12632811816087378`", ",", "0.020762280716293505`", ",", 
         "0.881985303250539`", ",", "0.04506149505756283`", ",", 
         "0.7354033016113141`", ",", "0.5231796541526902`", ",", 
         "0.049901517715834544`", ",", "0.5783644531776899`", ",", 
         "0.114308707575761`", ",", "0.27843081449635576`", ",", 
         "0.41403372641051006`", ",", "0.25424251066797526`"}], "}"}], ",", 
       "0.5937713760514826`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.2049798678575745`", ",", "0.7246574362688393`", ",", 
         "0.6656923590609838`", ",", "0.25021249837020887`", ",", 
         "0.6016205707507227`", ",", "0.2537393152029321`", ",", 
         "0.5805613459547294`", ",", "0.2834547350491399`", ",", 
         "0.37546137485946496`", ",", "0.5292823822107281`", ",", 
         "0.7521593770324391`", ",", "0.15712661688826615`", ",", 
         "0.35469909414317147`", ",", "0.6472970789601892`", ",", 
         "0.7070978819748762`", ",", "0.4217233152769521`", ",", 
         "0.8315194399904813`", ",", "0.5973955612443546`", ",", 
         "0.12873342879718633`", ",", "0.3074146077011911`", ",", 
         "0.5530886254941255`", ",", "0.18336183483384455`", ",", 
         "0.8744909181292111`", ",", "0.7136432316497086`", ",", 
         "0.348108757636551`", ",", "0.4587043985650052`", ",", 
         "0.20879855906822728`", ",", "0.4634307332794997`", ",", 
         "0.7464881868858283`", ",", "0.2049650833620731`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.6282372131134979`", ",", "0.17997599823035976`", ",", 
         "0.3710268120263634`", ",", "0.675682701151345`", ",", 
         "0.8760778360810588`", ",", "0.022849381342093605`", ",", 
         "0.01632771788319192`", ",", "0.02838562219115584`", ",", 
         "0.16897995410618258`", ",", "0.6011260660651415`", ",", 
         "0.18480827789271062`", ",", "0.43099006094680126`", ",", 
         "0.040246525308996264`", ",", "0.2937114583639504`", ",", 
         "0.6317196523985851`", ",", "0.2476282261129567`", ",", 
         "0.1657556071797852`", ",", "0.5800682267142419`", ",", 
         "0.28361089476203405`", ",", "0.7889238275479514`", ",", 
         "0.9569570481115579`", ",", "0.1166374934347422`", ",", 
         "0.5371227078762056`", ",", "0.5839587441858783`", ",", 
         "0.3287198349980601`", ",", "0.9366614952043825`", ",", 
         "0.1660958958498423`", ",", "0.9082760430345334`", ",", 
         "0.4526419989170013`", ",", "0.9138121138622889`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.14976817796665037`", ",", "0.8798904208433775`", ",", 
         "0.2836620448108187`", ",", "0.31268604779714737`", ",", 
         "0.9649599000739397`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.4489003598965763`", ",", "0.24341551950182244`", ",", 
         "0.018974589433196968`", ",", "0.33324024767535465`", ",", 
         "0.20127213378361958`"}], "}"}], ",", 
       RowBox[{"-", "1"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"1", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "3"}], "}"}]}], "}"}], ",", "0.4389063627189551`",
        ",", "0.04962935291332063`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "26.33850298449619253927875914528743829239`20."}], ",", 
       "0.3739115460329071426388024239647802347299387592817940179939`20.", 
       ",", 
       RowBox[{"{", 
        RowBox[{
        "0.0000773746742238333`", ",", "0.000613301226039649`", ",", 
         "0.00003104345706119007`", ",", "0.25152418075660354`", ",", 
         "0.7477540998860718`"}], "}"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "0.4123483062356681`", ",", "0.12070286421047928`", ",", 
         "0.32226886928421294`", ",", "0.512506645037115`", ",", 
         "0.8283895620497898`", ",", "0.7919830292124191`", ",", 
         "0.3856073740798305`", ",", "0.34641074918727266`", ",", 
         "0.9201135190152564`", ",", "0.3393410302954179`", ",", 
         "0.47179526021754165`", ",", "0.19664257122062226`", ",", 
         "0.040223098171878816`", ",", "0.05567898548459918`", ",", 
         "0.1591092124203943`", ",", "0.2316826711466825`", ",", 
         "0.5913227382753026`", ",", "0.8122634659827768`", ",", 
         "0.1401346229871973`", ",", "0.8984424234713279`", ",", 
         "0.39005060449168294`", ",", "0.7346035536607395`", ",", 
         "0.7012282602682423`", ",", "0.8488130705580073`"}], "}"}], ",", 
       "0.9777022982560148`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.6139006894502602`", ",", "0.37895939098402925`", ",", 
         "0.33630642552089224`", ",", "0.1493127362062251`", ",", 
         "0.8219176602378411`", ",", "0.9933520169041988`", ",", 
         "0.9898956763336196`", ",", "0.22919921719096872`", ",", 
         "0.4825766299424232`", ",", "0.5215567566866571`", ",", 
         "0.7932531051129974`", ",", "0.18897611901908992`", ",", 
         "0.42689764445782397`", ",", "0.36244754426626286`", ",", 
         "0.5615704339663149`", ",", "0.5976533807437874`", ",", 
         "0.6146341784750473`", ",", "0.22231292127906555`", ",", 
         "0.663128010494987`", ",", "0.20760277625210444`", ",", 
         "0.8800306248143077`", ",", "0.5210846610108233`", ",", 
         "0.8143149399369798`", ",", "0.2299004779960896`", ",", 
         "0.2661299353640475`", ",", "0.14212527002679406`", ",", 
         "0.4780085144160876`", ",", "0.08058774178986451`", ",", 
         "0.4442122751262064`", ",", "0.14877325312259526`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.48811283808246797`", ",", "0.8513885245988958`", ",", 
         "0.9616356451837833`", ",", "0.6272164964359381`", ",", 
         "0.6948597329694706`", ",", "0.6624124055798059`", ",", 
         "0.5347380007259593`", ",", "0.2647689521696752`", ",", 
         "0.1332892990031557`", ",", "0.06475902483601849`", ",", 
         "0.920103822250912`", ",", "0.04245603089060969`", ",", 
         "0.47016128850816863`", ",", "0.857156248583914`", ",", 
         "0.04007319743660429`", ",", "0.5213713698797864`", ",", 
         "0.6558463485711888`", ",", "0.6272557705878244`", ",", 
         "0.7739432620725568`", ",", "0.3792460998529923`", ",", 
         "0.17783783415510124`", ",", "0.54666802879796`", ",", 
         "0.32973098694635034`", ",", "0.230472846730397`", ",", 
         "0.6897249960726333`", ",", "0.6952795041990641`", ",", 
         "0.3680953417625671`", ",", "0.6032563502944589`", ",", 
         "0.9948652631031627`", ",", "0.03286709861925829`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.8333573410366077`", ",", "0.3384873981247837`", ",", 
         "0.861575964100007`", ",", "0.9681080737832398`", ",", 
         "0.9132535187856957`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.296031367234174`", ",", "0.39141467559183835`", ",", 
         "0.11095182519932574`", ",", "0.8731803213490914`", ",", 
         "0.7746599973543876`"}], "}"}], ",", "4", ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "4"}], "}"}]}], "}"}], ",", "0.4836960546115013`",
        ",", "0.09923705927653466`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "30.54105788958905509536038535446872275862`20."}], ",", 
       "0.2204590732697812744257974760824784765669453353907027460459`20.", 
       ",", 
       RowBox[{"{", 
        RowBox[{
        "1.0001907740530597`*^-7", ",", "1.383128606516477`*^-6", ",", 
         "6.183218280137802`*^-6", ",", "5.87372370421598`*^-10", ",", 
         "0.9999923330466637`"}], "}"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "0.39541389750139533`", ",", "0.5577304928655483`", ",", 
         "0.9370280258135414`", ",", "0.7695060723301843`", ",", 
         "0.16494105077099835`", ",", "0.868005496792915`", ",", 
         "0.24174852161447719`", ",", "0.4014107305676173`", ",", 
         "0.5616847004765394`", ",", "0.8731402336897524`", ",", 
         "0.2088814229952189`", ",", "0.5680533895310095`", ",", 
         "0.22319730235175578`", ",", "0.01156426958974532`", ",", 
         "0.2407733492119791`", ",", "0.6547998707453138`", ",", 
         "0.9271659351175818`", ",", "0.6201495939979069`", ",", 
         "0.12982152401265334`", ",", "0.7816195493962222`", ",", 
         "0.15250593776319415`", ",", "0.8845812669772574`", ",", 
         "0.646125469401152`", ",", "0.6823824901196877`"}], "}"}], ",", 
       "0.7570920402617988`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.3268507741117091`", ",", "0.7090974435876107`", ",", 
         "0.9128764177895033`", ",", "0.5921509894908005`", ",", 
         "0.45884527731879404`", ",", "0.46734892197313355`", ",", 
         "0.511465687221886`", ",", "0.030466289014261023`", ",", 
         "0.5857050436290417`", ",", "0.2584674989779146`", ",", 
         "0.9434122976908765`", ",", "0.8072689866625052`", ",", 
         "0.5741407740392964`", ",", "0.017694149765935526`", ",", 
         "0.2886124269455628`", ",", "0.8801030515449234`", ",", 
         "0.9539911800413894`", ",", "0.8878726257532822`", ",", 
         "0.5069928775493405`", ",", "0.7275971137817293`", ",", 
         "0.06940991306413202`", ",", "0.24174715635213012`", ",", 
         "0.8246103874296529`", ",", "0.9705050735199304`", ",", 
         "0.742559138952423`", ",", "0.5326497127645194`", ",", 
         "0.9117339696401496`", ",", "0.37835408402913`", ",", 
         "0.28371386163362894`", ",", "0.0653007907913859`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.4002682824182635`", ",", "0.347887795014869`", ",", 
         "0.6980088180045873`", ",", "0.8068332918134713`", ",", 
         "0.4568559847273869`", ",", "0.5406188083523638`", ",", 
         "0.12386804396529084`", ",", "0.7891391420475358`", ",", 
         "0.1682435577818241`", ",", "0.6605157568074402`", ",", 
         "0.16987686392390142`", ",", "0.9012665162942536`", ",", 
         "0.6612506802324836`", ",", "0.932918643025711`", ",", 
         "0.10046695085976941`", ",", "0.6595193599421234`", ",", 
         "0.8366402928028307`", ",", "0.9624135695057805`", ",", 
         "0.35790781190734644`", ",", "0.12686964717760404`", ",", 
         "0.9249063231626811`", ",", "0.5840594854766505`", ",", 
         "0.07419395027371754`", ",", "0.06156885638621813`", ",", 
         "0.5246380407444176`", ",", "0.23617169046178155`", ",", 
         "0.3761851322691303`", ",", "0.2547355645727469`", ",", 
         "0.06778205601703056`", ",", "0.6955528821094178`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.2523170883038395`", ",", "0.4655964225252111`", ",", 
         "0.8995384982352065`", ",", "0.03503712530197755`", ",", 
         "0.08244022437993806`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.5643299062309576`", ",", "0.23828781800272292`", ",", 
         "0.10211848227626655`", ",", "0.9819732735201686`", ",", 
         "0.9048105462888341`"}], "}"}], ",", 
       RowBox[{"-", "1"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"3", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "4"}], "}"}]}], "}"}], ",", 
       "0.13970491277048602`", ",", "0.6240654616128222`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "14.80789860010008582755628071045073876346`20."}], ",", 
       RowBox[{
       "-", "1.0168432053591173220802082217354792516418763076397704493479`20.\
"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.06880462647582514`", ",", "0.15079475081006588`", ",", 
         "0.029328798707154557`", ",", "0.35190690819322057`", ",", 
         "0.3991649158137339`"}], "}"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "0.7779408991112301`", ",", "0.4767412020372112`", ",", 
         "0.5556454272938355`", ",", "0.5498715113391046`", ",", 
         "0.716372042725012`", ",", "0.9521031612927937`", ",", 
         "0.31947373683205393`", ",", "0.17368637906997433`", ",", 
         "0.46163647815226505`", ",", "0.8843211052757631`", ",", 
         "0.6239208547226361`", ",", "0.9213692907661348`", ",", 
         "0.996040055627054`", ",", "0.9847826070405566`", ",", 
         "0.5888837294206586`", ",", "0.8389290663861968`", ",", 
         "0.4317101493960964`", ",", "0.7464947890378337`", ",", 
         "0.486765247144392`", ",", "0.8569557928660282`", ",", 
         "0.5268996031072624`", ",", "0.3448472638379415`", ",", 
         "0.347060334373906`", ",", "0.23289033125320596`"}], "}"}], ",", 
       "0.7489587039960323`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.8681060618007302`", ",", "0.7914149070800705`", ",", 
         "0.6830188199141013`", ",", "0.032586661271020306`", ",", 
         "0.9160029005079365`", ",", "0.4719411702480166`", ",", 
         "0.509332440844127`", ",", "0.5709501831187552`", ",", 
         "0.03168179523217347`", ",", "0.8480203155253805`", ",", 
         "0.5879631500779922`", ",", "0.5749101274917012`", ",", 
         "0.04689918819161681`", ",", "0.25913658610472196`", ",", 
         "0.7490340836917954`", ",", "0.14319997809560486`", ",", 
         "0.30040439915378303`", ",", "0.77237133896033`", ",", 
         "0.8920782908257672`", ",", "0.6163003749883426`", ",", 
         "0.9555571353158415`", ",", "0.42531100458642396`", ",", 
         "0.6591879595725613`", ",", "0.8673416709923103`", ",", 
         "0.08745107351511129`", ",", "0.6338960975063535`", ",", 
         "0.97616913965846`", ",", "0.83475500972129`", ",", 
         "0.1714481730071747`", ",", "0.1619549272583369`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.46683669881433293`", ",", "0.2638048266025348`", ",", 
         "0.13976637777500123`", ",", "0.3139346117329564`", ",", 
         "0.8788735487363408`", ",", "0.6888946991108335`", ",", 
         "0.09286718958338443`", ",", "0.054798025628234465`", ",", 
         "0.1298394650445455`", ",", "0.5456947210152286`", ",", 
         "0.7924627904296013`", ",", "0.2824266866679045`", ",", 
         "0.2377611742187783`", ",", "0.9293943460268861`", ",", 
         "0.8369056551137598`", ",", "0.8571156820814806`", ",", 
         "0.578573214646217`", ",", "0.06205267503457573`", ",", 
         "0.7494545815986485`", ",", "0.22321958457512706`", ",", 
         "0.6024040749877572`", ",", "0.2272976653132857`", ",", 
         "0.5780064085914738`", ",", "0.061264657316790164`", ",", 
         "0.1355673761734242`", ",", "0.963492838710751`", ",", 
         "0.43824003081647256`", ",", "0.7473300455838338`", ",", 
         "0.25669382743708336`", ",", "0.2745981395999174`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.34537284123308815`", ",", "0.6925320199555993`", ",", 
         "0.1268543623925379`", ",", "0.7289034185846888`", ",", 
         "0.5529100508034868`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.4101053332876948`", ",", "0.8890931881737596`", ",", 
         "0.7995090725578028`", ",", "0.716004395689727`", ",", 
         "0.5529896512062142`"}], "}"}], ",", 
       RowBox[{"-", "1"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"3", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0"}], "}"}]}], "}"}], ",", "0.737456397523227`", 
       ",", "0.9665498140910784`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "13.54166061888970882520887265495998453384`20."}], ",", 
       RowBox[{
       "-", "0.8287306779963496452517615864147046610072308789961632275338`20.\
"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.9745836116415912`", ",", "0.001387855495487755`", ",", 
         "0.00023190291078633096`", ",", "0.022528518427763572`", ",", 
         "0.0012681115243710444`"}], "}"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "0.32977006663108716`", ",", "0.7081158985397854`", ",", 
         "0.5101587322099413`", ",", "0.38854340549960464`", ",", 
         "0.268505409314297`", ",", "0.5725485223663612`", ",", 
         "0.5466658934991904`", ",", "0.9503033746831321`", ",", 
         "0.5211753637304632`", ",", "0.3158546949292778`", ",", 
         "0.2720677538992729`", ",", "0.6049305334500439`", ",", 
         "0.8286433437748639`", ",", "0.18900033253673992`", ",", 
         "0.5431643353145841`", ",", "0.05202048264655712`", ",", 
         "0.4185380104871692`", ",", "0.2999071443629803`", ",", 
         "0.7436552627567814`", ",", "0.33601608695683016`", ",", 
         "0.865548359280955`", ",", "0.9893871708354378`", ",", 
         "0.006198865233554347`", ",", "0.3694662728657517`"}], "}"}], ",", 
       "0.5357782926498678`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.2812712722956524`", ",", "0.49604013302361305`", ",", 
         "0.980922867366147`", ",", "0.2672728833355708`", ",", 
         "0.7087227499292912`", ",", "0.9493742395244227`", ",", 
         "0.030619492683014952`", ",", "0.7460975196051075`", ",", 
         "0.3928680550000134`", ",", "0.6773064856251497`", ",", 
         "0.42568895923297106`", ",", "0.9174541758302436`", ",", 
         "0.2038677224632735`", ",", "0.13414215031056564`", ",", 
         "0.37366847658641394`", ",", "0.49891616534307437`", ",", 
         "0.9039605781002932`", ",", "0.3904868875537843`", ",", 
         "0.03765238962958378`", ",", "0.6333678060621194`", ",", 
         "0.9145734072648554`", ",", "0.38428802232022996`", ",", 
         "0.6681861167638321`", ",", "0.0975895134122516`", ",", 
         "0.633302134969203`", ",", "0.8882478892966169`", ",", 
         "0.6872632493976851`", ",", "0.8303166300766808`", ",", 
         "0.9245793850399118`", ",", "0.9388736497721942`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.6566437567146701`", ",", "0.08421911047157328`", ",", 
         "0.5317113300398983`", ",", "0.26156716414704445`", ",", 
         "0.23095479748169911`", ",", "0.16676493464132974`", ",", 
         "0.32784360757662484`", ",", "0.12742501383647878`", ",", 
         "0.8572863208952852`", ",", "0.6678487692982554`", ",", 
         "0.42388302947633166`", ",", "0.7369381262826945`", ",", 
         "0.8196339312657014`", ",", "0.034480963236136`", ",", 
         "0.5093096222114762`", ",", "0.35265010396246455`", ",", 
         "0.15144781450186928`", ",", "0.9368914498238844`", ",", 
         "0.8760074872422733`", ",", "0.4644022146658477`", ",", 
         "0.4641845651041842`", ",", "0.1065748197472036`", ",", 
         "0.9514281022023615`", ",", "0.5255285648936535`", ",", 
         "0.807540808389514`", ",", "0.022355709275630315`", ",", 
         "0.41971677216246317`", ",", "0.263961400746609`", ",", 
         "0.5765860109078149`", ",", "0.8555907746343006`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.09187316458583833`", ",", "0.13653638691013023`", ",", 
         "0.7192996900125298`", ",", "0.1877420053360452`", ",", 
         "0.6679901351095067`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.39959826062743575`", ",", "0.8996657587468284`", ",", 
         "0.1532610420999092`", ",", "0.15868051289803042`", ",", 
         "0.046948156664971166`"}], "}"}], ",", "1", ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"3", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "3"}], "}"}]}], "}"}], ",", 
       "0.21636959227602479`", ",", "0.28267302565575714`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "22.67287954332349381656467448610098020575`20."}], ",", 
       RowBox[{
       "-", "0.6286063797494019593553188678824007098109859372677245594974`20.\
"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.0000187062295747445`", ",", "0.9996294798405111`", ",", 
         "2.6531332079641295`*^-7", ",", "0.00011800728431804243`", ",", 
         "0.00023354133227539506`"}], "}"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "0.5825459419991235`", ",", "0.2840333791407749`", ",", 
         "0.1097947725288212`", ",", "0.3312449234533956`", ",", 
         "0.057017377105470016`", ",", "0.47649257075126084`", ",", 
         "0.08743906325319087`", ",", "0.9115281512909325`", ",", 
         "0.7930559763588609`", ",", "0.8999065598434459`", ",", 
         "0.23184828861889029`", ",", "0.8196549867050942`", ",", 
         "0.6565195894487308`", ",", "0.18060686983091617`", ",", 
         "0.0441062832828451`", ",", "0.15166485159558746`", ",", 
         "0.256921328821295`", ",", "0.2809411110840878`", ",", 
         "0.890845241182936`", ",", "0.9929843386975571`", ",", 
         "0.20997317215632383`", ",", "0.5327231668391287`", ",", 
         "0.6744756489069111`", ",", "0.7103113130418`"}], "}"}], ",", 
       "0.6274272301572004`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.24868978769835381`", ",", "0.56468087637809`", ",", 
         "0.3790663895884043`", ",", "0.5704098530517303`", ",", 
         "0.772197216947093`", ",", "0.47724181312489905`", ",", 
         "0.4675382382974718`", ",", "0.7773538766928694`", ",", 
         "0.8722906571036471`", ",", "0.24539352450600876`", ",", 
         "0.6478832515923777`", ",", "0.12083428724413861`", ",", 
         "0.6916837872727308`", ",", "0.20128724122316366`", ",", 
         "0.49621839999679024`", ",", "0.8639129584228437`", ",", 
         "0.4107426761886431`", ",", "0.31044200004022776`", ",", 
         "0.5032340612992332`", ",", "0.6539397862665198`", ",", 
         "0.8780195093495143`", ",", "0.6359663511333167`", ",", 
         "0.7929227482574333`", ",", "0.02651255610931943`", ",", 
         "0.6293297216511605`", ",", "0.07128547475522672`", ",", 
         "0.41385635866902903`", ",", "0.4561027030575891`", ",", 
         "0.8571325047040675`", ",", "0.5940436616303276`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.9463181203715572`", ",", "0.6787488263647198`", ",", 
         "0.9848418476004206`", ",", "0.3486501371243189`", ",", 
         "0.2984348687791795`", ",", "0.5579145391205812`", ",", 
         "0.29315806032768965`", ",", "0.14736289590115526`", ",", 
         "0.8022164687823893`", ",", "0.6940015806977375`", ",", 
         "0.8824153841390466`", ",", "0.8369208958609274`", ",", 
         "0.2989824074831561`", ",", "0.04006179443121777`", ",", 
         "0.004395874789532241`", ",", "0.20095454472761085`", ",", 
         "0.5060596592257228`", ",", "0.013549238321898338`", ",", 
         "0.3750661531383717`", ",", "0.12966906997238412`", ",", 
         "0.0922033005566938`", ",", "0.5574465352643092`", ",", 
         "0.5179336484343041`", ",", "0.5356254083420564`", ",", 
         "0.1458851801851366`", ",", "0.8786977088995894`", ",", 
         "0.5330918008338836`", ",", "0.18697527121773755`", ",", 
         "0.8474503114059571`", ",", "0.32078316977900834`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.2399337405061939`", ",", "0.03961237531658231`", ",", 
         "0.045233842623567805`", ",", "0.6267815890812708`", ",", 
         "0.3575183563671473`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.20269147945565483`", ",", "0.7462514351404117`", ",", 
         "0.586719794650053`", ",", "0.35312248157761505`", ",", 
         "0.0017369347280439674`"}], "}"}], ",", 
       RowBox[{"-", "1"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"3", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "3"}], "}"}]}], "}"}], ",", "0.5731705563281547`",
        ",", "0.9780563284392434`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "14.90326808134542980815175051374215715886`20."}], ",", 
       RowBox[{
       "-", "1.2420724207377910017500474497764762157220904067680187974912`20.\
"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.14683413260628125`", ",", "0.39659076101647905`", ",", 
         "0.285167935754797`", ",", "0.1044883231575851`", ",", 
         "0.06691884746485756`"}], "}"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "0.8720678647556599`", ",", "0.1479884753579951`", ",", 
         "0.01572402106384544`", ",", "0.4601226800049392`", ",", 
         "0.3364424564136034`", ",", "0.0021032951728584747`", ",", 
         "0.13702631216425595`", ",", "0.9270308791710556`", ",", 
         "0.14946718519586583`", ",", "0.15465298376690137`", ",", 
         "0.8162431423852476`", ",", "0.6870971386648618`", ",", 
         "0.10985480987928352`", ",", "0.10941914114333358`", ",", 
         "0.18946155330397688`", ",", "0.3295787822977144`", ",", 
         "0.9071633304236287`", ",", "0.36316770600292186`", ",", 
         "0.6027417586539239`", ",", "0.9764563007200994`", ",", 
         "0.9054263956955847`", ",", "0.12297593008823297`", ",", 
         "0.029571202325769184`", ",", "0.998399972280856`"}], "}"}], ",", 
       "0.0333585309399249`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.9749874547302378`", ",", "0.013847181261923741`", ",", 
         "0.5382772922759168`", ",", "0.6969160745263215`", ",", 
         "0.9728841595573794`", ",", "0.8768208690976678`", ",", 
         "0.611246413104861`", ",", "0.5474488893304557`", ",", 
         "0.818231175790478`", ",", "0.06057772671242013`", ",", 
         "0.9241492744399994`", ",", "0.4375940794511722`", ",", 
         "0.7088120346471445`", ",", "0.8711161734084433`", ",", 
         "0.5945704921422849`", ",", "0.5304307490275435`", ",", 
         "0.3456443286442226`", ",", "0.2683744147545194`", ",", 
         "0.6181141914221855`", ",", "0.6250043533319587`", ",", 
         "0.22266839855598963`", ",", "0.23880321242875022`", ",", 
         "0.6197142191413295`", ",", "0.5916458223920338`", ",", 
         "0.24768094382575173`", ",", "0.2249560311668265`", ",", 
         "0.08143692686541276`", ",", "0.8947297478657124`", ",", 
         "0.2747967842683723`", ",", "0.34813516206915873`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.47019051376055165`", ",", "0.34728085853525664`", ",", 
         "0.45656560847789424`", ",", "0.28755743535673856`", ",", 
         "0.5460412393205524`", ",", "0.9096867790840845`", ",", 
         "0.7477535738307498`", ",", "0.41644126194829534`", ",", 
         "0.9514707471782674`", ",", "0.37925603005654096`", ",", 
         "0.4021092451865272`", ",", "0.1480668471937759`", ",", 
         "0.3333565557560819`", ",", "0.7542516767245823`", ",", 
         "0.17944084663053758`", ",", "0.9092636347650257`", ",", 
         "0.7136423366147524`", ",", "0.1626058543325484`", ",", 
         "0.9317599028047858`", ",", "0.6843076035981992`", ",", 
         "0.6322054097493396`", ",", "0.2678761064668361`", ",", 
         "0.6569631185364135`", ",", "0.33617244152904047`", ",", 
         "0.16201489598878796`", ",", "0.9205952479315794`", ",", 
         "0.20039751005851927`", ",", "0.04861500617230189`", ",", 
         "0.6159736566682357`", ",", "0.010908468847495035`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.4526439362277695`", ",", "0.6321737442240066`", ",", 
         "0.6645029094899682`", ",", "0.6316524387909541`", ",", 
         "0.05053469104124229`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.4841068970302307`", ",", "0.33114635373388623`", ",", 
         "0.8774007620663719`", ",", "0.8710938444107047`", ",", 
         "0.574843262265205`"}], "}"}], ",", "0", ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"2", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "2"}], "}"}]}], "}"}], ",", "0.7147949077338235`",
        ",", "0.9393339416059189`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "15.57747052576862362693888709588228110545`20."}], ",", 
       RowBox[{
       "-", "0.9854160420788193955529305040834144061983259031554117802241`20.\
"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.9999982594936545`", ",", "3.221239093776694`*^-7", ",", 
         "1.3954092309161093`*^-7", ",", "9.337382039066594`*^-7", ",", 
         "3.451033092715565`*^-7"}], "}"}]}], "}"}]}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.5278798943279343`*^9, 3.527879935098879*^9, 
  3.527880557308209*^9, 3.527881158012882*^9, 3.5278812072345257`*^9, 
  3.527881289174897*^9, 3.527881321836894*^9, 3.528055578534706*^9, 
  3.52805683667115*^9}]
}, Open  ]]
}, Closed]]
}, Closed]]
}, Open  ]]
},
WindowSize->{756, 780},
WindowMargins->{{142, Automatic}, {Automatic, 25}},
FrontEndVersion->"7.0 for Mac OS X x86 (32-bit) (February 18, 2009)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[567, 22, 127, 1, 67, "Section"],
Cell[CellGroupData[{
Cell[719, 27, 100, 1, 34, "Subsection"],
Cell[822, 30, 2384, 63, 118, "Input"],
Cell[CellGroupData[{
Cell[3231, 97, 120, 1, 24, "Subsubsection"],
Cell[CellGroupData[{
Cell[3376, 102, 4611, 113, 193, "Input"],
Cell[7990, 217, 14739, 321, 763, "Output"]
}, Open  ]]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[22790, 545, 96, 1, 26, "Subsection"],
Cell[22889, 548, 7178, 173, 463, "Input"],
Cell[CellGroupData[{
Cell[30092, 725, 212, 3, 24, "Subsubsection"],
Cell[CellGroupData[{
Cell[30329, 732, 7908, 177, 463, "Input"],
Cell[38240, 911, 41593, 823, 2223, "Output"]
}, Open  ]]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[79894, 1741, 192, 3, 26, "Subsection"],
Cell[80089, 1746, 3482, 80, 253, "Input"],
Cell[CellGroupData[{
Cell[83596, 1830, 112, 1, 24, "Subsubsection"],
Cell[CellGroupData[{
Cell[83733, 1835, 11909, 273, 778, "Input"],
Cell[95645, 2110, 41846, 828, 2113, "Output"]
}, Open  ]]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[137552, 2945, 252, 3, 26, "Subsection"],
Cell[137807, 2950, 9665, 240, 418, "Input"],
Cell[CellGroupData[{
Cell[147497, 3194, 112, 1, 24, "Subsubsection"],
Cell[CellGroupData[{
Cell[147634, 3199, 12282, 270, 898, "Input"],
Cell[159919, 3471, 83917, 1666, 3658, "Output"]
}, Open  ]]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[243897, 5144, 249, 3, 27, "Subsection"],
Cell[244149, 5149, 1721, 41, 133, "Input"],
Cell[CellGroupData[{
Cell[245895, 5194, 160, 2, 24, "Subsubsection"],
Cell[CellGroupData[{
Cell[246080, 5200, 7492, 173, 478, "Input"],
Cell[253575, 5375, 1703, 29, 140, "Message"],
Cell[255281, 5406, 1703, 29, 140, "Message"],
Cell[256987, 5437, 1703, 29, 140, "Message"],
Cell[258693, 5468, 785, 14, 23, "Message"],
Cell[259481, 5484, 41987, 835, 2113, "Output"]
}, Open  ]]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[301529, 6326, 309, 4, 27, "Subsection"],
Cell[301841, 6332, 5779, 130, 328, "Input"],
Cell[CellGroupData[{
Cell[307645, 6466, 186, 2, 24, "Subsubsection"],
Cell[CellGroupData[{
Cell[307856, 6472, 8688, 198, 553, "Input"],
Cell[316547, 6672, 1716, 28, 140, "Message"],
Cell[318266, 6702, 1698, 28, 129, "Message"],
Cell[319967, 6732, 1699, 29, 129, "Message"],
Cell[321669, 6763, 802, 14, 23, "Message"],
Cell[322474, 6779, 46642, 940, 2488, "Output"]
}, Open  ]]
}, Closed]]
}, Closed]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
